E 



HORS SERIE 



J 



REVUE 



NDARDS AMSTRAD 



Jeu 



Utilitaire 

Miimtum 

TRAITSm 
IHIPRtSSIOH SUR 

aivnoppt 



MWDimi 
DtPMW 



M 2604 7 -15,00 F RD 



3792604015005 00070 




I 

SOMMAIRE 



TRAIT-STAT 

12 

ALCA 

16 



ANTI-ERREURS 

3 



IMPRESSION 
SUR ENVELOPPE 

19 



DOMINOS 

5 



AUTO DICTEE 

22 



DEPART OIE 

9 



MANOIR MAUDIT 

26 



®J 



CPC est une publication du 
groupe de presse JAUREZ- 



SylvioFAUREZ 
Rédacteur en chef 
Olivier SAOLETTI 
Rédaction 
Catherine VIARD 

Marseille : KarineELOHOZI 
Paris: Anne-Marie THOMAZEAU 



Isabelle IIALBERT 
Directeur de fabrleall 
Edmond COUDERT 



leFAUREZ- Ta 99.52.98.11 



Administra lion - Diffusion 
Editions SORACOM 
LaHaicdePan-35170BRUZ 
RCS Rennes B319S16302 
CCP Rennes 794.17V 
Ta- 99.5Z98.1 1 + 
Taes.SORMHZ74I.042F 
Serveur 3615 MHZ 

Venlc au réseau exclusivement 

B.E.P.BP11-35170BRUZ 

Ciérsrd PELLAN 

B.E.P. 5. rueduFbg Montmartre 

C. CHOUARD Chef des ventes 

Tél. 1.47.70.06.71 

Tel. vert 05.48.20.98 



lMSTRAD est une marque dépotée 

:PC est une revue mensuelle totalement indépen- 

ante d'AMSTRAD GB et D'AMSTRAD FRAN- 



es de nos abonnis rr 



tUtaL 



couractucllimim 
ectifteation dans le 



te grande pan, du 



Les articles et programmes 
ce numéro béoéj 

tés, contrefaits, copiés par quelque procédé que ce 
soit, même partiellement sans l'autorisation écrite 
de 11 Société SORACOM et de l'auteur concerné. 
Les opinions exprimées n'engagent que la respon- 
sabilité de leun auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but 
privé ou scientifique mais nm commercial. Ces ré- 



Dépot légal à parution 
Distribué en Suisse pu- : 
SEMAPHORE -TA. 022.54. 



m/TME 




Il est difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntaxerror in..., Linedoesnot 
exist in...), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l'erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c'est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas vos erreurs. 
La frappe d'un programme de votre 
journal favori (CPC) terminée, vous 
faites "RUN" et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 

— sauvez votre programme en ASCII 
grâce à l'instruction : Save "nom 
prog", A. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu'au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c'est le code qui va vous 
permettre de savoir d'où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 
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respond à ce code. Continuez ainsi 
jusqu'à la fin du listage. 
Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites "RUN" et 6 
miracle ! ça marche. 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle . 



A TTENTION : cette nouvelle ver- 
sion n'est pas compatible avec 
l'ancienne. Seuls les programmes 
publiés dans ce numéro possèdent 
un code anti-erreurs correct. 
Les instructions de chargement res- 
tent, elles, inchangées. 



20 tt * 

30 * ANT1 - ERREURS * 

40 ■ # * 



50 ' * VERSION 2.0 * 

69 ' 4 * 

70 ■ **«#♦#***#*#*#*»*#*#*****#*#* 
Bg ' 

90 ' (c) CPC 6 6. NOE 1987 

m ' 

ne ' 

12e ' >»»»»»»»»»»»»» 

13e '< INITIALISATION > 

m ' <««««««««««««« 

156 

160 ON ERRÛR BQTO 125» 

170 MODE 2 

180 DM GÏ1231 

190 FOR 1=0 T0 22:READ G$:G*II)=G$: 

HEKT 



m 'ATTENTION LA LIGNE DE DATA Cl- ;RC 

DESSOUS NE CONTIENT PAS TOUTES LES 

LETTRES DE L'ALPHABET !!! 

21» DATA A,B.C,D,E,F,G,H,J,K,L,N,N, >AD 

P,Q,R 1 T,U,v',H,X,ï,Z 

221) ' ANTI-BUG FICHIER >RE 

230 IF PEEK(HIHEf1+l)=255 THEN 280 >ZD 

24B ÛFENOUT "CFC" /MA 

250 MEICRÏ HIMEH-2 -'NX 

260 CL0SE0UT >RJ 

270 POKE HIMEM+1,255 >PP 

280 DEFINT B-Z >WH 

290 ' -"TB 

300 BORDER 6:INK 0,1:M 1, lb:PEN 1 >JN 

: PAPER 

310 flOVE y,i6:DRAH 650. 16 > TK 

320 PRINT TAB1271 "A N T I - E R R >GU 

E U R S ";CrS*l24);"Ver5iDn 2.0" 

;CHR$(24) 

330 MENE 0,365:DRAW 650,395 >LU 

340 LQCATE 24,25:PRINT"CPC REVUE DE >EV 

S STANDARDS AriSTRAD" 

350 HINDOU 1,80.3,23 M. 

360 (1$= ,, ReaIi5e par 6rsqory HQE" ïH3 

370 F**" >XA 

380 FOR I=î T0 LEN1IHÏ >PU 

390 FMFi+HID*!fl4,I,13 n\ 

400 LOCATE 70-I.5:PRlNT F* >UL 
410 FOR T=l TQ 100 >L0 

420 NEXT T,I >EF 

430 ' *H 

440 ' M*************************** >RJ 

**** 

450 >F* 

460 LOCATE 2,1:PRINT U ENTREZ LE NON >XT 

DU FICHIER : "; 

470 INPUT n ",NF* >FD 

480 IF NFÎ= K " THEN PRINT CHR*(7!:G0 >Gfi 

ÎQ 460 

490 LOCATE 2,3:PRINT"IMPRIMANTE DU >VR 

ECRAN II/E1?" 

500 R*="":WHILE R*="":R$=UPPER*(INK >NK 

EY$):WEND 

510 IF R$="I" THEN CA=8:PfiINT"BfiANC >XD 

HEZ-LA..." ELSE 540 

520 PRINT)t8,CHR*!27);"!";CHR$l20) >AR 

530 GOTO 560 >ZF 

540 IF R*= U E" THEN CA=0:GOTO 560 >Y8 

550 GOTO 500 >ZH 

560 CLS:L0CATE 2,3:PRINT"TANT QUE L >QR 

E LISTAGE N'EST PAS TERMINE" 

570 LQCATE 2,5:PRINT"NE PAS ARRETER >JW 
LE MAGNETOPHONE OU NE" 

5B0 LOCATE 2, 7: PRINT "PAS SORTIR LA >TL 

DISQUETTE" 

590 LOCATE 2,10:PRINT"F'RES5EZ UNE T >HH 

QUCHE POUR LA LECTURE" 
600 CALL J.BB05 



610 ' 
620 



«<«««««««««« 



>RH 
>RJ 



4, 



638 '< TRAITEMENT DU FICHIER > >RK 

648 ' »»»»'»>»»»»»» >TA 

658 " >TB 

668 OPENIN "l'ttfJ >LF 

678 CLS:PRI NT" TRAITEMENT EN COURS.. >JR 

686 IF LENCA*}=255 THEN A4="":LINE >¥W 

INPUT#9,B$:G0TD 1168 

698 LINE INPuT(W,B$:W=8$ >UE 

788 IF CAOS THEN GOSUB 1318 >VF 

718 IF INKEY(66)=8 THEN STOP >WN 

728 >RK 

738 ' CALCUL DE LA CLE DE CONTRQ >TA 

LE 

748 ' ;TB 

758 ft=8:FLG=8 >MB 

766 FOR 1=1 TO LENiAÏ) ,>PH 

776 LI-MIDÏ(A$,I.l) M 

768 IF L»=CHR*i34i AND FL6=1 THEN F >PC 

LG=8:G0T0 840 

798 IF L$=CHfi$i34i AND FLG=8 THEN F >PD 

LS=1:G0TQ 848 

888 IF L*=CHR*(32i AND FIBOl THEN >CX 

818 IF LÏ=CHR$(39) AND FLG=8 THEN B >CA 

828 IF FLG=1 THEN 848 >ND 

838 L$=UPPERt(L$; ,>MC 

848 A=A+ASC(L*J+I ;>LU 

S58 NEXT I m 



868 ' 


>TE 


1138 PRINT#CA,LEFTï(B$,55) 


>VN 


878 CH*=STR$(AJ 


>CC 


1148 IF FG=1 AND CAOS THEN FS=8:G0 


>VB 


888 CH*=ftIGHT$(CM,LEN(CH*)-i) 


>YC 


SUB 1318:G0T0 1158 




898 L=LEN(CHÏ):L2=LENŒH*)/2 


>XA 


1158 GOTO 1188 


Hfl 


988 A=VAL(LEFTI(CH*,L2>) 


>TY 


1168 IF E0F=-1 THEN CLOSEIN aSE GQ >HD 


918 C=INTiA/23) 


>AH 


TO 668 




928 P=A-(C*23) 


>LJ 


1178 If CA=8 THEN CALL iBBO-3: PftINT 


>RJ 


938 CS=GÏ(P) 


>XC 


TAB158) CHR$(24);"UNE TOUCHE. .. tt ;CH 




948 A=VAL(RIGHT*(EHi,L-L2ii 


>WH 


RÏ(24i:CALL VB885 




958 C=INT(A/23):P=A-(C*23) 


>UT 


1188 CLS:PRINT"MAINTENANT RECHARGEZ 


>,rn 


968 C*=C$+G$(P) 


>TD 


";NF$;" ET CORRIGEZ US LIGNES QUE 




978 ' 


>TG 


VOUS AVEZ NOTEES.." 




968 FOR 1=1 TO 6 


M 


1198 END 


>V(f 


998 L*=MD$(A$,I,1) 


>HY 


1288 ' 


>ÏF 


1888 IF L*<"8" OR L*>"9" THEN 1838 


>XJ 


1218 ' ««<««^<««««««« 


m 


1818 LIÏ=LI*+Lt 


>XF 


1228 < TRAITEMENTS DES ERREURS > 


■>xb 


1828 NEXT 


>KE 


1238 ' ««««««««««<«« 


>u 


tW Vt1$="":FOR 1=1 TO LENiA$):lF A 


>EK 


1248 


>XK 


SClhID$(A*.I.li)<32 THEN VM$=VMÏ+" 




1258 IF ERR=25 THEN CLS:PRINT CHR$( 


>ÏC 


" ELSE yMI=VIH+HID*iA*,I,li 




7!:CHR$(24);"FICHIER NON ASCIPsCHR 




1848 NEXT I;6$=VM* 


m 


*(24/:END ELSE CQNT 




1858 ' 


>XJ 


1268 


>YF 


1868 IF CAOS THEN 1878 ELSE 1898 


>YT 


1278 ' «««««««««< ««« 


>YC 


10/8 PRINT LI*:TABU8) ">":C$ 


>NZ 


1288 '( ATTENTE TOUCHE... > 


>VF> 


1888 LI*="":GQTO 1168 


>ND 


1298 ' «««<<«.«.<««.«««« 


>¥F 


1898 LH= HB :PRINTttCA.LEFTtiB$,55;:T 


>GH1 


1388 ' 


m 


AB(57) ■'>";« 




1318 C0M=CQM+1:IF C0M>19 THEN CALL 


>AF 


1188 IF LENIBSK55 THEN 1168 


m 


fcBB83:PRINT TABI58) "UNE TOUCHE..." 




111» F8=l 


>cs 


:CALL iBB«5:CL3:C0M=l 




1128 B$=MDï(6*,56,LENlB$ii 


>UB 


1328 RETURN 


im 



UN 

NUMERO 

HORS 

SERIE 

GRATUIT 

TOUS 

LES 

DEUX 

MOIS 



4 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n" hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlbles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les 'compatibles PC*. 

Attention, tous nos abonnas reçoivent avant parution des souscriptions sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 



D CPC AMSTRAD 
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D Abonnement essai 
D AMSTAR 

D PCompatîbles Magazine 
D Arcades 

NOM 



Code postal _ 



11 numéros 180 F 

6 numéros 105 F 

3 numéros 55 F 

11 numéros TOOF 

11 numéros 200 F 

11 numéros 200 F 
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JEôt 



Dominos 




Philippe DALIBARD 



Ce jeu célèbre et aux règles très simples peut maintenant se dérouler 

sur l'écran de votre Amstrad. N'essayez pas de tricher 

Big CPC is watching you ! 



Après avoir mélangé le jeu, l'ordina- 
teur distribue à chaque joueur sept 
dominos. Ensuite, il tire au sort le 
joueur qui débutera la partie. 
Votre jeu s'affiche en bas de l'é- 
cran, chaque domino portant la 
mention de son numéro. 
La sélection du domino s'opère en 
tapant son numéro et, lorsque l'ordi- 
nateur le demande, le côté du jeu 
où celui-ci doit être placé . 
Chaque joueur peut piocher jus- 
qu'à 8 dominos ; au-delà ou si la pio- 
che est vide, il est possible de pas- 
ser son tour. 



Le nombre de dominos présents 
dans le jeu de l'ordinateur est repré- 
senté par des astérisques en haut 
de l'écran. 

A la fin de chaque partie, le nombre 
de points restant au joueur perdant 
est totalisé. En cas de blocage du 
jeu, les points des deux joueurs 
sont totalisés. 

Le perdant est le joueur qui atteint 
le premier 50 points. 
Le programme est très facile d'utili- 
sation. Il limite (rend même impos- 
sible) toute erreur de choix ou tou- 
te tricherie! 



28 JEU DE DÛMïNÛS 
38 ■ PH. DALIBARD/ 1987 




30 j=IMT(RND*2)+l:j2=i 


MU 


68 DIHa*l28J.b*l2Bi,v(28>,a(2,2BJ, 


m 


d(29),dl(2,29),do*i56i.all2B),d3;28 




78 ON ERROR EQTÛ 356* 


>PX 


60 MODE 2 


m 


98 WlNDÛWttl. 1,88,14,22 


,>QV 


100 ; 


?RB 


118 ' REDIFINITIÛN DES CARACTERES 


«c 


128 ' 


>RD 



138 SYMBOL AFTEfi 98 

148 SYMBOL 9 1 . &FF , S-FF . ?yFF , S<FF, !<FF , 4. 

FF,*FF,*FF 

150 SYMBOL 92,y r F,y : F,i i FF,&E7.4£7.i: 

FF.fcFF.&FF 

160 SYMBOL 93,&FF,&FF.Ï ! FF,i ; FF,y r F,È ( 

FF,iFF,&E7 

170 SYMBOL 94, i£7 , Î.FF , feFF , feFF , &FF , i 

FF,iFF,MT 

m SYMBOL 200,&FF,SFF,iFF,&FC,&FC. 

tcFF.tFF^FF 

198 SYMBOL 2«l,(îFF,fcFF,((FF,!î3F,13F, 

&FF,!<FF,iFF 

200 SYMBOL 262 , !«FF , fcB7 , Ï:B7 , 4FF , &FF , 

&FF,&FF,fcFF 

218 SYtffiTJL 283,!<FF,& ; FF,&!FF,SfF,ïfF, 

&C3,&C3,S:FF 

220 SYMBOL 2«4 . &FF , 487, 587 , &FC , Sf C , 

&FF.!iFF,&FF 

2-30 SYMBOL 285,4FF,kFF,&FF,î«3F,&3F, 

!tEl,6El,&FF 

248 SYMBOL 2tt,ffF,!(87,W7,iFF,HT, 



QDGDCXG3 



250 SYMBOL 267,!<FF,& ; El,&£i.&FF,SfF, >NF 

6Ei,6£l,&FF 

268 SYMBOL 20B, feFF, &67, 5:87, 1FC, &FC, >ME 

tB7,487,!<FF 

278 SYMBOL 2e3,l«fF,ï£l,i£l,lfe3F t $3F, >MC 

&E1,&E1,4FF 

286 SYMBOL 21é,S(FF,(t84 < !<84,SfF,ï(FF, >HT 

tS4,4G4,S(FF 

290 SYMBOL 211,&FF,fc21,k21,î<FF.&FF. >MF 

316 ' CREATION DES DOMINOS >fi£ 

326 ' ,.Rf 

336 RESTORE >HA 

346 BATA [[[£££, £[[[£[, »,£££[][, [[[ if>fl 
["U,EEE\[E,[[[[[\,2,[[[\]£, [£[[■>, 
,3,[[[\E\,L[[\E\,4,U[\]\,£E[\n,5, 
EEE\\\,[E[Y\\,6, [][[][, ["[[■[, 2,[][ 
\[C,[-[[[\,3,[][\]C,["[[ i \.4,[][\[\ 
,[- 1 [\[\,5,[J[\]^,["[\"\,6,[J[\\\,[ A 
t\\\,7 

356 DATA \[[\[[,[[\[[\,4.\[['\K. [[\ >TZ 
[ A \,5,\[[\[\,[i:\\[\,ù,\t[\]\,[t\\"\ 
,7,\[[\\\,[[\\\\,8,\][\j[,E--\["\,b, 
\Jt\C\,[ A \\[\,7,\K\]\.Q'\\ -\,a,\K 
W\,C A\\\,9,u\\[\,\L\^[\,8,\L\\J\ 
,\E\V-\ t 9,\[\\\\,\EV\\\,19 
366 DATA \J\\]\, v'\\-\, 16, \J\W\. V"' >RF 
\\\\,11,\\\\\\.\\\\\\,12 
376 DATA 91,91,91,91,91,91,289,201, >ZY 
91,91,262,263,91,91,264,265,91,91,2 
66,267,91,91,266,269,91,91,216,211, 
20*, 261, 266, 261, 266,2*1,262, 263, 269 
,261,264,265,266,261,266,267,266,26 
1,268,269,266,261,216,211 
386 DATA 262,263,262,263,262,263,26 >RR 
4, 265, 262, 263, 266, 267, 262, 263, 268, 2 
69,262,263,216,211,264,265,264,265, 
264,265,266,267,264,265,208,269,264 
.265,216,211,266,267,266,267,266,26 
7,268, 269, 266, 267, 216, 211, 268,269,2 
68,269, 268,269,216, 211.216,211,21», 
211 

396 FOR n=J TO 28:READ a*<n),b$(n), >MA 
v(n):NEXT n 

466 FOR n=l TP 28 >DA 

416 aal="" >DF 

426 FOfi i=l TO 4 >VG 

436 READ a >JC 

446 aa*=aat+CHR$(a) >nj 

6 



456 NEXT i >Nh 

466 do$(n)=aa$ ? p[. 

479 NEXT n > PE 

486 ' >TC 

496 ' TIRAGE > TÏ ) 

566 ' >RF 

516 FOR i=l TO 2B >ch 

526 x=INT(RND(8)*29i >pp 

536 FOR m=l TO i >yd 

546 IF nfW GOTO 526 >py 

556 NEXT b > PC 

566 d(i)=X >f]H 

576 NEXT i > Pfi 

5B6 ■ >TD 

596 ' DISTRIBUTION HE 

666 ' ;RS 

616 FUR j=t TO 2 >VG 

626 »=t >PD 
636 FOR i=l+(j-l)*7 TO 7+Cj-lW >XP 

646 dl(j,i)=d(i! > DJ 

656 d(i)=6 >HH 

669 ra=n+l >q: 

676 NEXT i >p B 

686 NEXT j >pd 

696 FOR i=8 TO 13 ;>DH 

766 FOR n=i+l TO 14 >LF 
716 IFLEFTîldDÏ(dll2,l)),4)>LEFT»( >XE 
dGÏ(dll2,n)),4) THEN s=dl(2,i);dl(2 
,i)=dl(2,n):dl(2,n)=s 

726 NEXT n > PC 

736 NEXT i ?NJ 

749 LOCATE 13,2 >XE 

™ m 

766 PRESENTATION >T2 

™ >T E 

786 WIND0WH6, 1,86, 1,25 ;>qy 

796 rî= , " , : 5 $=' i " ,, PK 
899 ÛRIGIN 6,3o6:DRAW 6,35:DRAW 86, >ZJ 
35:DRftW 86.6:DRAW 6,6 
819 ORIGIN 6,265:QRAW 6,150:DRAW 63 >DV 
9,156:Df(AW 639,6: DRAW 6,9 

826 j=j2 vif 

836 >TB 

849 q=l:p=9:bl=6:y=9:v2=6:plg=8:pld >YP 

=9:ha=6:hb=9:f=l 

859 ON i GOTO 866,879 >NP 

869 LOCATE 2,2:PRINT" Vous ";60T >JH 



B79 LOCATE 2,2:PRINT" Amstrad " 

889 PRINT CHR*(7!:IF y~l AND j=2 E 

TO 1646 

899 IF j=2 SOTO 1936 

966 ' 

919 ' V0U5 

926 ' 

936 n=l:ml=l 

949 FOR n=l TO 28 



>C£ 



lu 



959 IF dl(j,n)=6 GOTO 1636 
969 SOUND 1,119,1,13 
979 IF n>7 GOTO 1916 >MJ 

9B6 LOCATEttl, 12-Mm-lt*9,2;PRINT#l, >CV 
a$ldl(j,n)ï:L0CflTE#l,12+(B-l)*9,3: 
PRINT#l,;bHdl(],n)):0RIGlN88+{m-l 
)*72,175:DRAW -3,-6:DRAW -3,-34:DRA 
W 44,-34:DRAW 47, --39 
999 ÛRIGIN 85+{iirl)*72,141:DRAH 6,4 >BL 

1669 LÛCATE#1,12+(b-1!*9,5:PRINT#1, >EH 
;dl(j,n):m=(iM-l:G0TO 1646 
1616 LOCATEttl, 3+lœl-î)*9,6:PRINT#l >UN 
, aî(dli,j,n!>:LÛCAT£#l,3-Mfll-l)*9,7 
:PRINTttl,ibîidl(i,n)):L0CATE#l,3*tm 
l-n*9,9:FSINT#l,;dl(j 1 n):DRIGlN 16 
+ lal-l)*72,U6:DRAW -3,-6:DRAW -3,- 
34:DRA« 44,-34:DRAW 47,-39 :0R1GIN 
13+iiBl-l)t72,76:DRAM 6,4:d(ii=6 
1626 ml=ml+l >yu 

1039 m=ai+l >kd 

1949 NEXT n >yp 

1659 IF bl=l 6QT0 3266 >PN 

1966 IF bl=2 GOTO 3296 ;PA 

1676 >y fl 

1686 ' VOTRE CHOIX >ye 

1696 ' ;-yc 

1169 CAa &BB9C:L0CATE 1,24:PRINT"Q >NW 
uel domino 1199 pour piocher, 6 pou 
r passer) :" STRING$(32," ")i:LOCAT 
E 4B,24:INPUT;d2:CfiLL &.669C 
1116 LOCATE 1,24:PRINT STfiING*(80," >FZ 

1126 IF d2=6 AND p=1 GOTO 2999 m 
1139 IF d2=6 AND y<8 60T0 1196 >W 
1149 IF d2=9 GOTO 2996 >NB 

1159 IF d2O106 GOTO 1318 >RN 
1166 ; >y ft 

1176 ' PIOCHE >Yfi 

11B9 ' >yc 

1190 IF y=8 GOTO 1168 >NC 

1269 FOR i=15 TO 28 >LH 

1216 IF d(i)=9 60T0 1269 >QP 
1220 dlll,i)=d(i):LQCATE#l,12+<y-l) >VB 

*9,6:PRINT#l,a$ldHl,i)):LQCAÏ£«,l 

2+ly-l)*9,7:PRINT#l,t>ïidl!l,i)):0RI 

GIN 16+y*72, 116: DRAW -3,-6:DRAH -3, 

-34:DRAW 44,-34:DRAW 47,-36 

1239 SOUND 1,1911,20,13 >0M 

1246 L0CATE#l,12+iy-l)*9.9:PRINT#l, >KV 

dl(l,i) 

1256 QftIGIN 13-My)*72,76:ÛRW 6,4:d >AF 

<i)=8:y=y+l :GOTO 1106 

1260 NEXT i >VE 

1279 FOR i=l TO 199:L0CATE 56,1:PRI >PE 
NTTft PIOCHE EST VIDE !":NEXT i:LÛC 
ATE59,1:PRM STRING*!»," "):p=l: 
GOTO 1190 

1280 ' >YD 



1298 ' EMPLACEMENT >YE 

vm ' >XG 

1310 FOR n=l TO 28 >LP 

132y If d2=dl(l,n) THEN dl(l,n)=d2; >KF 

60TÛ 1348 

1338 NEXT n >VH 

1348 k=8:kl=0:k2=0:k3=8:k4=0. >WK 

1358 IF (LEFTS((doï(dl(i,n])),2XE >XF 

FT*<rS,2)> THEN kl=l 

1368 IF (RI6HTîUdo$<dl(l,nm,2)=L m 

EFT*(rt,2t) THEN k2=l 

1378 IF (RIGHT$i(do*idl(l,ni)),2)=R >ZR 

IGHT*lr*,2)) THEN k3=l 

1388 IF (LEFT$lldQ$(dlil,n));'.2)=RI >VC 

GHT$tr$,2)l THEN k4=i 

1398 k=kltk2+k3+k4 >KR 

1408 IF k=8 AND q>=2 GOTO VM >VE 

1418 IF k=6 AND <pl THEN CLS#j:6GTQ ?FN 

2788 

1428 IF k>l AND td2=l OR d2=B OR d2 M 
=14 Ûfi d2=19 OR d2=23 OR d2=26 OR d 
2=28) GOTO 1458 

1430 IF k>l AND RIGHT*(rJ,2)=LEFT*l >RC 
r$,2) GOTO 1458 

1446 IF kOl GOTD 1498 >PV 

1450 IF kl=l GOTO 1578 >PG 

1468 IF k2=l GOTO 2788 >PE 

1478 IF H=l GOTÛ 1628 >PG 

I4Sé IF k4=l GDTQ 2718 >PK 

1496 CALL ?yBB9C:L0CATE 1.25:PRINT"A >CP 

gauche ou a droite lq ou dt : Î! STR1 
NGÎ(47," ".';: LOCATE 33.25: INPUT ;pl 
Ï:CALL &BB9C 
1588 LOCATE 1,25:FR1NT STRIN6îi79. ,! >F« 

1518 CL3#] >NE 

1528 IF UPPEF$iPl*)="D" GOTO 1618 >W 
1538 ' /YB 

1548 DOMINO GAUCHE >1£ 

1558 ' >YB 

1568 IF (LEFT$udo*ldii.j,ni)i,2)=LE >NJ 
FT*(r$,2)) THEN BGTQ 1578 ELSE 2788 

1578 dQ*ldiij,ni)=RIGHT$Udo*<dlij, MA 

n)!),21+LEFT$ubûï(dno.nJ)1.2i:GGT 

2788 

15B8 m 

1598 ' DOMINO DROITE HH 

1688 >XK 

1618 IF (RlGHTÏ(!tlDtidlU,fiJJ; l 2)=fi >RA 

IGHTîirï.2i) THEN GOTO 1ê28 ELSE 27 

18 

1628 da*tdhj.ni>=ftIGHT*udo*idilj, >AX 

nn!.2)+LEFT*Udûïidl<j,Fim,2!:G0T 

2718 

1638 

UM ' AMSTRAD 

1658 ' 



1668 k=2B:l=l 
1678 FOR i=28 TO 1 STEP-1 
1688 IF îOk GOTO 1738 
1698 FOR n=8 TO 14 
1780 IF dl(2,nl=k GOTD 2788 
1718 NEXT n 
1728 fc=k-(l+i>:l=l+l > 

1738 NEXT i > 

1748 FOR i=l TO 7 > 

1750 lt=0 > 

1760 FOR n=8 TO 14 > 

1770 IF (RIGHT*ido*idl(2,n)),2l=RIG > 
HT*ldaStii.2)i THEN k=k+l 
1788 IF (LEFT$lda$(dll2,n)),2>=RI6H > 
T*ido*(i).2>) THEN k=k+i 
1798 NEXT n > 

1686aHiï=t. > 

1B10 NEXT i > 

1820 n=0 > 

1830 FOR n=l TO 14 > 

1848 IF al(n>>al(m) THEN m=n > 
1850 NEXT n > 

1360 FOR n=6 TO 14 > 

1870 IF (RIBHT*(doïidH2.ni).2)=RIB > 
HT* (do* (a), 2) ) GOTO 2788 
1888 IF (LEFT*fdDt(dli2,n)),2J=RIGH > 
Tî(da$(m!,2)) GOTD 2788 
1898 NEXT n > 

1988 ' > 

1918 ' CHOIX AMSTRAD ) 

1928 > 

1930 FOR i=l TQ 28 ) 

1948 IF dlll,iK>8 GOTÛ 2848 > 
1958 NEXT i > 

1968 LOCATE 58. l:PRINT"VOUS AYEZ GA > 
GNE !!!" 

1978 FOR 5=180 TO 18 STEP-1: SOUND 1 ) 
,5,2, ll:SOUND 2,5-3, 2,ll:SOUND 1,5+ 
3,2,U:NEXT s 

1988 m=l 1 

1998 FOR 1=8 Tû 28 ) 

2888 IF dl(2,i)<>0 THEN LOCATE 13+1 ; 
m-l!*5,2:FRINT do$idl(2,i));:0RI6IN 
127+im-li*48,366:DRAW -2.-3: DRAW - 
34,-3: DRAW -34. 13: DRAW -32,16:ÛRI3I 
N 95+(m-l)*40.366:DRAW 3,3:m=m+l 
2818 NEXT i î 

2028 GOTO 3290 ) 

2838 ' 3 

2848 FOR 1=1 TQ 4:al ii)=â;NEXT i 
2850 FOR x=8 TO 2B ! 

2860 IF dl!j,:<)=0 GOTO 2110 I 
2878 IF iRIBHT$(tdo*(dlU,slii,2>=L : 
EFTîirï,2i> THEN al(l)=al(ll+28 
2888 IF <RTGHT*tido*idl<j,K)i!,2î=fi ; 
IGHTÏ(r$.2)l THEN aH2)=al(2)+28 
2890 IF <LEFTÎUdoïidl<j,xi)),2ï=LE '. 
FT*îr*,2î) THEN al (3)=al (31+20 
2100 IF <LEFTÎUdo$(dl(j,x"i)}.2!=RI : 



BHT$lr*,2» THEN ai(4)=aiî4)+20 

2118 NEXT x m 

2120 FOR x=6 ÎO 2B >LH 

2136 IF ÛHj,x>=0 GOTO 2180 >TC 
2148 IF (RIGHT$((do*(dl(l,x))),2)=L >JJ 
EFT*(rt,2>) THEN aliii=aiiii-l 

2158 IF {RIGHT*Udo$(dlll,x))),2)=R >KN 
IGHT$(r$,2!) THEN al (2)=al(2)-l 

2168 IF (LEFT*((dQ«dl<i,x))),2)=LE >SZ 
FT*(r*,2)) THEN al(3)=al (31-1 

2178 IF lLEFT$(<do*Tdlil,x))),2)=RI >JU 
GHT$(r*,2)) THEN al(4)=al(4)-l 

2188 NEXT X >XB 

2198 FOR x=8 TO 26 >L8 

2288 IF dlU,x)=0 THEN 2278 >TB 

2216 FOR i=l TO f >DE 

2226 IF (RI6HT*lldo»(dlU,x))),2)=L M 
EFTt(dQï(d3li)),21) THENalll)=alil 
)-l 

2238 IF (RIGHT*((do*(dlU,x))),21=R >WB 
IGHTÎ<do*[d3ui!,2>) THEN al(2i=al( 
2)-l 

2240 IF (LEFTÏ((dal(dl(l.x))(,2)=LE ÏTV 
FT*fdo*(d3(i)),2!> THEN al(3>=al(3> 
-1 

2258 IF lLEFT*Udoïidl(l,*))i,2/=RI >US 
SHTS(doJ(d3(i);,2)) THEN al(4;=ali4 
)-l 

2268 NEXT i >VF 

2270 NEXT x m 

22B6 a=0 m 

2298 FOR 1=1 TO 4 >CE 

2388 IF aliii>al(«i THEN e=i >VE 

2318 NEXT i M 

2320 IF a>0 GOTO 2548 H* 

2336 ' >¥A 

2348 ' PIOCHE AMSTRAD /YB 

2358 ' >ÏC 

2368 FOR i=8 TO 28 ;>LY 

2378 IF y2=8 GOTO 2'788 >PF 

23B8 IF d!i)=6 GOTO 2498 >QF 

2396 k=6 >WB 

2488 FOR n=B TO 14+y2 >NN 

2416 IF dl(2,ni=8 80T0 2436 ;TP 
2428 IF do$(d(ii)>do*(dl(2,nJi THEN >GR 
k=n+l 

2438 IF k=8 THEN k=8 >MZ 

2446 NEXT n m 

2450 FOR n=2S TO k STEF : -1 >RY 

2468 dl(2,n+l)=dl(2,n) ?PZ 

2470 NEXT n >«D 

2486 dl(2,ki=d(i):d(i)=8:y2='y2+l:SQ >FN 
UND 1,1911,20,13: GOTO 2640 

2498 NEXT i >WA 

2566 GOTO 2966 ;MF 

2516 ' >YA 

2520 ' EMPLACEMENT >YB 

2538 ' >YC 

2548 ON m GOTÛ 2586,2610.2550,2640 >ZK 



255B FOR n=28 TO 6 STEP-1 >R8 

2M IF (LEFT$(<do$(dHj,n))),2)=LE >XR 
FT$(r*,2)) GOTO 1578 
2570 NEXT n >WE 

25S0 FOR n=28 TQ 8 STEP-1 >re 

2590 IF <RIGHT$((doïldl(j,n))),2)=L >YF 
EFT*(r$,2)) GOTO 2700 
2600 NEXT n >VJ 

2610 FOR n=28 TO 8 STEP-1 >RV 

2626 IF iRIGHT$((do*<dHj,n))>,2)=R >ZQ 
IGHT$(rl,2)) GOTO 162* 
2630 POT n >jjB 

264« FOR n=28 TO 8 STEP-1 >RB 

265« IF (LEFT$l(doï(dl(i,n)J),2)=fiI >¥D 
6HTJ(r*,2)) SQTO 2710 
2660 NEXT n >g£ 

2670 ' >VH 

2680 AFFICHAGE DAN5 JEU >ÏJ 

2690 m 

2700 r*=do$(dl (.], ni j+rt: SOUND 1.400 >ME 
:GÛT0 2750 

2710 r*=r$+do$idlij,n)i: SOUND 1,400 >flD 
:GDTO 2G20 

2720 ' m 

27-30 ' AFFICHAGE A GAUCHE DU JEU >ÏE 
2740 ' ;lVF 

27S0 IF P lg=0 THEN plg=l :ha=2:LOCA >KH 
TE l+<plg-l)*5,7:PRINT LEFT*ido*idl 
(j,n>),2i:LOCATE i+tplq-1 >*5,a : pRIN 
T RI6HTI<do$(di(i,nJ>,2):0RI6IH 0,2 
68:DRAWR 14,0:DRAWR l,2:GOTO 2890 
2760 IF ha=2 THEN do*(dll;j.n))=ftIGH ->NS 
Tt(da$idl(j,ni),2)+LEFTtidQ*(dl(j.n 
>i,2!;S0T0 2780 

2770 LOCATE l+lpig-l)*5,ltMia:PRINT >RD 
do*(dl(j,n)):QRIGIN 311+iplg-B)*40 
,239:DRAW -2,-3:DRAW -34,-3:DRAW -3 
4,13:DRAW -32,16:0RIGIN 277+(plg-B) 
*40,236:DftAW 3,3:plg=plg-kGOTQ 289 


2780 LOCATE l+<plg-l)*5,5:PfiINT do» >BE 
<dl(j,riM:OfiIGIN 31+(plg-l)*40,31B: 
DRAW -2,-3:DR(W -34,-3:DRAW -34,13: 
DRAW -32,16:0RIGIN -l+iplg-l)*40,31 
8:DRAN 3,3;plg=plq + l : G0T0 2890 

>ZA 
' AFFICHAGE A DROITE DU JEU >YC 



2âie ■ 



>yd" 



2820 IF pld=17 THEN pld=16:hb=2:LOC 

AIE 78,7:PftINT RIBHT$<dQ*idl(j,n/>, 

2):LOCATE 78,8:PRINT LEFTïldoïidli j 

,n!),2):QfiîGIN 629, 270: DRAttR -i.-2: 

DfiAWR -14,0:DRAWR l,2:DRAWfi -1,-2:D 

RAWR 0,30:DRAWR l,2:GOTO 2890 

2630 IF hb=2 THEN do$(dlij.ni)=RISH >NX 

T${doîldi(j,n)),2!+LEFT*idDÎldl(.j,n 

)!,2):G0T0 2850 

2B40 LOCATE 1+ ( P ld-i ;*5, ly-hb: PRINT ;>TE 



ido$(dl(j,n)):ORIGIN 351+(pld-91*40 

,239:DRAH -2,-3:DRAW -34,-3:DftAW -3 

4,13iÛRAW -32,16:QRIGIN 317+<pld-9) 

*40,236:DfiAW 3,3:pld=pld+i:SQT0 289 



2850 LOCATE l+< P ld-i}*5,5:PRINT do* >LT 

(dl{j,n)):DfiIGIN 631+(pld-16)*40,31 

B:DRAW -2, -3: DRAW -34,-3:DRAW -34,1 

3:DRAW -32,16:0RIGIN 319+<pld-9)*40 

,31B:DRAW 3,3:pld=pld-l 

2B60 ' >Y J 

2870 ' JOUEUR SUIVANT OU FIN DE PAR >YK 

TIE 

2880 ' j28 

2B90 (t3(f)=dl{j,n):f=W:dl(j,n)=0 >BR 

2900 IF j=l THEN GOTO 2988 >T¥ 
2910 FOR i=l TO 2B >LR 

2920 IF 4H2.ÎJ09 GOTO 2980 >UM 
2930 NEXT i >vk 

2940 LOCATE 13,1;PRINT" " Kffl 
2950 LOCATE 5».1:PRINT"V0US AVEZ PE >NT 
RÛU !" " 

2960 FOR s=1500 TO 2500 STEP 10:SÛU >RC 
ND l,s,3:NEXT s 

2970 bl=2:j=l:G0TQ 930 >QR 

2980 IF i=l THEN j=2 ELSE j=l >VH 
2990 «=1 m 

3000 LOCATE 13,1:PRINT STRING§(30," >GP 
■)j 
3010 FOR i=l TO 28 >lh 

3020 IF dll2,i><>0 THEN LOCATE 13+1 >CX 
■-n*2,l:PRINT"* ":m=ra+l 
3030 NEXT i >y B 

3040 IF LEFT*(r*,2;-.:>RIBHT$irî,2) G ;JJ 
QTO 3240 

3050 FOR i=l TO 2 >BH 

3060 FOR x=l TO 28 >LE 

3070 IF LEFTt(doïidl(i 
(r*,2l GOTO 3240 
3080 IF RIGHTÎIdo$(dll 
*lrï,2) GOTO 3240 
3090 NEXT x 
3100 NEXT i 
3110 FOR i=l TQ 28 
3120 IF LEFT$(dolid(ii 
,2) GOTO 3240 
3130 IF RIGHT»(da$id(i 
1,2) GOTO 3240 
3140 NEXT i > y[ ) 

3150 m=l ;,y|( 

3160 FOfi i=l TO 28 >LP 

3170 IF dl(2,iK>0 THEN LOCATE 13+ ( >CX 
m-ll*5,2:PRINT doî(dt(2,ii)::0RIGIN 
127+lm-li*40,366:DRAW -2,-3:DfiAW - 
34,-3:DRAW -34,13:DRAW -32.16:0RIGI 
N 95+(m-l)»40,366:DRAW 3,3:i»=m+i 
31G0 NEXT i >vh 

3190 bl=l:i=l:GOTO 930 }{& 



>=LEFÏI j 



',2)=LEFT ; 



'.2)=LEFT*ir* >PX 



',2)=LEFTt(r 



3200 LOCATE 58,l:PRINT k JEU BLOQUE! 1 >FK 

3210 FOR s=300 TO 180 STEP-5:S0UND >NF 
1,5,2, 13:S0UND 2,5+10, 1,13:NEXT s 
3220 FOR s=10G TO 300 STEP 5:SDUND >NF 
l,s,2,13:SOUND2,s-10,I,13:NEXT s 

3230 GOTO 3290 m 

3240 CLSftî: q=q+l:SOTO 650 >UA 
3250 GOTO 3290 > NB 

3260 ' >yD 

3270 ' RETOUR AU DEBUT / FIN DE PAR >VE 
TIE 

3280 ' >ÏF 

3290 CALL &BB9C >wk 

3300 FOfi j=l TO 2 >BG 

3310 FOR i=l TO 28 >LL 

3320 vl(j)=vl(j)+v(dl(j,i)i >VP 
3330 NEXT i > VE 

3340 ON j GOTO 3350,3360 >QR 
3350 LOCATE 71, j:PRINT" VOUS:" USIN >CF 
G"##l";vl(j):GQTO 3370 
3360 LOCATE 71,j:PRINT" AMS ";":"jU >UA 
UNBWtvIti) 

3370 NEXT j ;, VK 

3380 FOR j=l TO 2 >CE 

3390 IF vHj)/=50 THEN ON j GÛTÛ 34 >ÏT 
00,3430 ELSE GOTO 3460 
34H0 LOCATE 26,B:PRINT"V0UË AVEZ PE m 
RDU LA PARTIE '!!" 

3410 FOR s=l TO 3:SÛUND 1,239,10:50 >CK 
UND 1,0:SOUND 1, 239, 3ô: SOUND 1,0:SO 
UND 1,319,40:SOUND 1,0s SOUND 1,239, 
50: SOUND 1,0: NEXT s 

3420 GOTO 3450 >kj 

3430 LOCATE 26. 8: PRI NT "VOUS AVEZ GA >AL 
GNE LA PARTIE !!!" 

3440 FOfi sl=l TO 15:F0R 5=80 TO 130 /YD 
STEP INT(RND*lô)+l: SOUND 1,5,2,13: 
NEXT s:SOUND 1,0,INT(RND*3J+1:NEXT 
si 

3450 FOR i=l TO 2:vl(iJ=0 :NEXT i >VF 
3460 NEXT j m 

3470 CALL &BB9C m 

3480 LOCATE 55,2:1NF'UT"UNE AUTRE "i >GC 
Zt 

3490 IF j2=l THEN j=2 ELSE ]=1 :>WD 
3500 j2=j joj; 

3510 IF UPPERt(LEFTt(:$,l))0"N" TH >AN 
EN ERASE aï,bî,v,a,d,dl,do$,ai,d3:G 
OTQ 60 

3520 END >yj 

3530 ' m 

3540 ' TRAITEMENT DES ERREURS >VE 
3550 ' >YF 

3560 LOCATE 20.1:PRINT"ERREUR No":E m 
RR;"LI6NE"::ERL 

3570 RESUHE NEXT >VL 

3580 END >7c 



DEPART OIE 



Daniel JAGER 



Ce programme vise à l'apprentissage des 

départements français, d'une manière moins 

rébarbative puisque ludique. Il est présenté 

sous la forme d'un jeu de l'oie 

de 95 cases que chaque joueur 

(jusqu'à 8 participants) 

devra effectuer. 




La progression des joueurs s'effec- 
tue par lancer d'un dé. Une fois le 
déplacement de son pion effectué, 
le programme demande au joueur 
le nom du département sur lequel il 
est tombé. Il faudra répondre sans 
omettre les articles, mais en négli- 
geant les tirets. Une mauvaise 
réponse entraîne un recul de quel- 
ques cases avec passage au joueur 
suivant. En cas de bonne réponse, 
le CPC demande la préfecture du 
département concerné. Une autre 



bonne réponse permet alors d'avan- 
cer d'un nombre de cases détermi- 
né aléatoirement. Pour abandon- 
ner, le joueur tapera ABANDON 
une fois son tour arrivé. 

Les règles du jeu sont expliquées 
dans le programme. Une fois tous 
les joueurs arrivés, un tableau de 
classement est dressé. En définiti- 
ve, ce programme se veut être une 
manière plus agréable d'apprentis- 
sage des départements. 



•CTEHRNT H© 




80 GQSUB 3331 
98 ON BREAK : 
\m DATA 8Ï, 
119 DATA 92. 

129 DATA 93, 

130 DATA 04. 
E PROVENCE 
140 DATA 95, 

159 DATA 96, 
S 

160 DATA 07, 
176 DATA 03, 
S ARÛENNE5 
189 DATA 99. 
199 DATA 19. 
299 DATA 11. 
21* DATA 12, 
229 DATA 13, 
U RHONE 
236 DATA 14, 

249 DATA 15, 
25Ô DATA 16. 
269 DATA 17, 

MARITIME 
279 DATA 18, 

250 DATA 19, 
299 DATA 28, 
309 DATA 21, 
-319 DATA 22, 
DU NORD 
329 DATA 23, 
339 DATA 24 
349 DATA 25, 
359 DATA 26, 
369 DATA 27, 
379 DATA 28 



GOSUB 3320 fi 
BOURG EN BRESSE. L AIN 

LA0N,L AISNE >! 

MOULINS. L ALLIER i 

DIGNE. LES ALPES DE HAUT ?! 

GAP. LES HAUTES ALPES ? 

NICE. LES ALPES MARITIME >i 

PRIVAS, LARÛECHE ,>: 

CHARLEVILLE MEZIERE5.LE > 

FQIX.L ARIEGE 

TRÛYES.LAUBE > 

CARCASSONNE, L'AUDE > 

RODEZ. L'AVEYRON > 

MARSEILLE.LES BOUCHES D î 

CAEN.LE CALVADOS ) 
AURILLAC.LE CANTAL 

ANBOULEME.LA CHARENTE > 

LA ROCHELLE, LA CHARENTE ) 

BOURGES. LE CHER > 

TULLE, LA CORREZE > 

AJACCIO.LA CORSE > 

DIJ0N,LA COTE D'OR ) 

SAINT BRIEUC.LES COTES > 

GUERET,LA CREUSE > 

,PERIGUEUX,LA DORDOGNE ; 

BESANCON, LE DOUBS ) 
.VALENCE, LA DROME 

EVREUX, L'EURE ; 

.CHARTRES, L'EURE ET LOIR ) 



* DATA 29,QUIMPEfi,LE FINISTERE >BF 

} DATft 30,NII€S,LE GARD >UE 

i DATA 31, TOULOUSE, LA HAUTE BARON >GK 

S DATA 32,AUCH,LE GERS >TD 

ï DATA 33, BORDEAUX, LA SIRUNDE >AÏ 

} DATA 34. MONTPELLIER, L'HERAULT >VK 

i DATA 35,RENNES,L'ILLE ET VILAIN >PN 

i DATA 36,CHATEAURDUX, L'INDRE >VM 

) DATA 37.TGURS, L'INDRE ET LOIRE >NE 

i DATA 38, GRENOBLE, L'ISERE >RR 

j DATA 39, LONG LE SAUNIER, LE JURA >DH 



498 DATA 40 
ES 

588 DATA 41 
516 DATA 42. 
520 DATA 43 
536 DATA 44, 
DUE 

546 DATA 45, 
550 DATA 4b, 
568 DATA 47, 
570 DATA 48, 
580 DATA 49, 
E 

59e DATA 38, 
688 DATA 51, 
RNE 

m DATA 52, 
628 DATA 53, 
630 DATA 54, 
ELLE 

646 DATA 55, 
650 DATA 56, 
666 DATA 57, 
678 DATA 58, 
686 DATA 59, 
690 DATA 60, 
7i» DATA 61, 
718 DATA £2. 
720 DATA 63, 
DE DOME 
736 DATA 64, 
IQUES 

746 DATA 65, 
EES 

750 DATA 66 
ORIENTALES 
760 DATA 67 
776 DATA 68, 
7B6 DATA 69 
790 DATA 70, 
806 DATA 71 



«ONT DE MARSAN, LES LAND >FY 

BLOIS.LE LOIR ET CHER >AV 

SAINT ETIENNE.LA LOIRE >01 

LE PUY.LA HAUTE LOIRE >BB 

NANTES, LA LOIRE ATLANTI >HV 

ORLEANS.LE LOIRET >YY 
CAHORS,LE LOT >US 
AGEN,LE LOT ET GARONNE >BT 
HENDE.LA LOZERE >MZ 
ANGERS, LE MAINE ET LOIR >DD 

SAINT LÛ,LA HANCHE >YA 
CHAtÛNS SUR WftNE.LA MA Ï6D 

CKAUMONT.LA HAUTE MARNE ,>DN 
LAVAL,LA MAYENNE M8C 
NANCY, LA MEURTHE ET MUS >HF 

BAR LE DUC, LA MEUSE >YJ 

VANNES, LE MORBIHAN >ZN 

METZ, LA MOSELLE >WA 

NEVERS,LA NIEVRE >XD 

LILLE, LE NORD >UF 

BEAUVAIS, L'OISE >RT 

ALENCON, L'ORNE >9H 

ARRAS,LE PAS DE CALAIS >BE 

CLERMONT FERRAND,LE PUY >LÏ 

PAU, LES PYRENEES ATLANT >LJ 

.TAREES. LES HAUTES PYREN >HR 

.PERPIGNAN, LES PYRENEES >RH 

.STRASBOURG, LE BAS RHIN >DG 
COLMAR,LE HAUT RHIN >ZF 
i LYON, LE RHONE >UL 
.VESQUL.LA HAUTE SAONE >BH 
,MACON,LA SAONE ET LOIRE >CK 



810 DATA 72.LE MANS, LA SAftTHE 
B20 DATA 73,CHAMBERY,LA SAVOIE 
830 DATA 74,ANNECY,LA HAUTE SAVOIE 



846 DATA 75,PAfiI5, PARIS >TU 
850 DATA 76,R0UEN,LA SEINE MARITIME >EM 



860 DATA 
870 DATA 
886 DATA 
890 DATA 
900 DATA 
910 DATA 
RQNNE 
920 DATA 
930 DATA 
940 DATA 
DEE 

950 DATA 
966 DATA 



77,MELUN,LA SEINE ET MARNE >CH 
78,VERSAILLES,LES YVELINES >FX 
79, NIORT, LES DEUX SEVRÉS >CB 
80,AMIENS,LA SGHME >WD 
81,ALBI,LE TARN >TG 
B2,M0NTAUBAN,L£ TARN ET GA >JK 

83, TOULON, LE VAR >UN 
84,AVIGN0N,LE VAUCLUSE >AT 
85, LA ROCHE SUR YON,LA VEN >FM 

86,POITIERS,LA VIENNE >ZQ 
67, LIMOGES, LA HAUTE VIENNE >EC 



970 DATA 88,EPINAL,LES VOSGES > 

980 DATA 89, AUXERRE, L'YONNE ) 

996 DATA 90,BELFQRT,LË TERRITOIRE D > 

E BELFORT 

1000 DATA 91,EVRY.L'ESS0NE > 

1018 DATA 92,NANTERRE,LES HAUTS DE ) 

SEINE 

1Ô20 DATA 93.B0BIGNV.Lfl SEINE SAINT ) 

DENIS 

1030 DATA 94.CRETEIL.LE VAL DE HAfiN ) 
E 

1848 DATA 95,EVRY,LE VAL D'OISE i 
1050 DINDE$(95J,PR$!95i > 

1060 RESTORE 100:FOR 1=1 TO 95:READ > 

N,PRIfIi,DE*(Ii:NEXT 
1070 PEN 1 > 

1080 INK 0,13:INK î,0:INK 2,24:1* > 
3,11 

1096 MODE kPAPER 0:PEN 1: LOCATE 5, > 
18: INPUT "Règle du jeu tQ/N) ";Rï:l 
F UPP£R$(Rï)="Q" THEN GOTQ 3146 
1160 MODE 1: PAPER 6:PEN i:CLS > 

1U8 LOCATE 15,3:PAPER 3:PRINT "DEP > 
ART ' OIE":PAPER 6 

1126 LOCATE 2,5:LINE INPUT "Nombre > 
de joueurs : u ;J*:JOUEUR=VAL(J$) 
1138 IF J0UEUR<1 OR J0UEUR>8 THEN P > 
RINT CBR*(7):G0T0 1120 
1140 DIM NOmi JOUEUR), CASE (JOUEUR) > 
1 150 FOR 1=1 TO JOUEUR > 

1160 LOCATE 2,I+6:PRINT "Joueur";!; > 
:LINE INPUT " : NOM:";NÛM$iI!:CAS£< 
I)=0 

1170 N0M*lI)=LEFTt(N0K*(I),15! > 

1180 NEXT I > 

1190 RESTORE 1230 > 

1200 FOR 1*1 TO 300:NEXT:CLS > 

1210 X=3:Y=3:DIM dir*(95) ,xc(95),yc > 
(95) 

1220 ' configuration au parcours > 
1230 DATA B6&BB6DDDDBBB6GBBBBGGBBBD > 
DDDBBGGGGBBDDDDDDHHHHHHGGHHHDDHHHDD 



1240 READ A$ 

1250 FOR 1=0 TO 95 

1260 IF INT(I/2)=I/2 THEN PAPER 2 E 

LSE PAPER 3 

1270 LDCATE X,Y:PRINT USIN6 "##";! 

1280 xcli)=x:yc(ii=y 

1290 IF 1=0 THEN A1Ï="B" EL3E Al$=fl 

ID*(A*, 1,1) 

1360 IF A1$="B" THEN Ï=V+1 

1310 IF A1$="H" THEN Y=Y-S 

1320 IF A1Ï="D" THEN X=X+2 

1330 IF A1$="G" THEN X=X-2 ) 

1340 dir*ii)=ai$ 

1350 NEXT I 

1360 DATA 150,154.154.154,156 ; 

1378 DATA 149,111,32,111,149 ; 

13B0 DATA 149.111,32,111,149 

1390 DATA 149,111,32,111,149 ; 

1400 DATA 147,154.154.154,153 ; 

1410 PAPER 

1420 RESTQRE 1366 

1430 FOR 1=12 TO 16 

1440 FOR J=2 TO 6 

1450 READ COD:LOCATE J.hPRINT CHRÎ ; 

OD); 

1460 NEXT J ! 

1470 NEXT I 

1480 WINDOW #1,29,38, 12, 20:PAPER #1 ; 

,2:PEN #1,1:CLS #1 

1490 WINDOW #4, 14,38,10, 18: PAPER #4 ) 

,1:PEN #4,0:CLS #4 

1506 ' 5 

1510 ; 

1526 ' ) 

1530 ' 

1548 FOR 1=1 TO JOUEUR ) 

1550 LDCATE M, 1, 1+I:F'fiINT#l,LEFT$( ; 

NOM U>, 8);: LOCATE #1,9, 1+1:PRINT # 

1.U5INB ,J ##":CASE(1): 

1560 NEXT I > 

1576 WINDOW #2,6,38, 3. 8:PAPER #2,3: ) 

PEN #2,1:CLS #2 

158» > 

1596 PftINT CHRÎI24) : inversion vid > 

eo 

1600 LOCATE 1,1:PRINT « > 

ÛEPART'OIE ";:PRSN 

T CHRÏ124) 

1610 WINDOW #3,3,5, 13, 15:PAPER #3.0 > 
:PEN #3,1 

1620 ' > 

1630 ' > 

ltA ç ■ > 

1650 ' boucle principale > 
1660 ' > 



1680 FOR i=l TO joueur 

1690 sie=e 

1766 IF JQUU>=1 THEN GOTO i960 

1710 PRINT #4, "JOUEUR COURANT :";LEF 

T$(NOm{I),10); 

1720 C4.S #2 

1730 PRINT #2, "A ";LEFT$(NOmiI),i0 

);" DE JOUER* 

17*0 GOSUB 2090 

1750 FOR t=l TD 500:NEU t 

1760 PRINT#2,"LE DE DONNE "ide;"." 

1770 FOR t=l TO 300JNEXT t 

1780 svt=de:GOSUB 2260: IF SIG=1 THE 

N 2850 

1790 FOR t=l TO 1000sNEXT 

1800 CLS #2 

1B10 PRINT #2, "QUEL EST LE DEPARTEM 

ENT No n ;case(iJî"?" 

1B20 LINE INPUT #2,rep*:repï=UPPER* 

(rept) 

1830 IF UPPERS(REPï>="ABANDON" THEN 

JGU < I > =1 : LOÇATE #1,9, I+1:PRINT il, 
CHR»<254);CHR$(255);;ABU)=1:NBAB=N 
BAB+1: IF NBAB+PO5T=J0UEUR THEN 296Ô 

EL5E GOTO 195& 
1848 IF rep$=de*(caseU)l THEN 1980 

' bonne réponse 
1850 ' 

1360 PRINT #2, "NON, IL FALLAIT REPON 
DRE' 



1870 PRINT #2,de*(case<i!)i u (":CA >KE 

SEdlîV' 

1BB0 GOSUB 2820 >YB 

1890 FOR T=l TO 3000:NEXT T >UU 

1900 ' >ÏC 

1910 PRINT#2, "Vous reculez donc de >NV 

1920 SOSUB 2090 >XF 

1930 mvt=de:PRINT #2, de; "case u ;:IF >CX 
de>l THEN PRINT #2, "s" 
1940 GOSUB 2530 >XG 

1950 FOR t=l TO 2000:NEXT t >UP 
1960 NEXT i m 

1970 SOTO 1680 M 

i9B0 PRINT #2, "BRAVO !!! ET SA PREF >NP 
ECRIRE ?" 

1990 >ZB 

2000 LINE INPUT #2,rep$ >RJ 

2010 IF UPPER* <R£P* » =PR« (CASE S I > > T >QP 
HEN GOTO 2070 

2020 PRINT #2, g N0N,"iDE*(CASE(n);: >ZP 
IF LEFT4(DE*(CASEa)>,3)= u LES" THEN 
PRINT #2," ONT "; ELSE PRINT #2," 
A "; 

2030 PRINT #2, "POUR PREFECTURE ": >CK 
2040 PRINT #2 T PRS<caselI)i >UH 
2050 FOR T=l TO 1000:NEXÏ T >UE 
2060 GOTO 1950 >NA 

2070 PRINT #2, "Exact !!' U :6QSU6 209 >AG 



0:ttVT=DE; SOSUB 2260 

20B0 IF SI6=1 THEN 2850 ELSE i960 >YP 

2890 ' >¥D 

2100 ' lancement du de >XF 

2110 ' >XG 

2120 FDR lan=l TO INT(RND*15>+5 >YH 

2130 de=INT(RND*6J+l >PL 

2140 CLS #3 >LD 

2150 IF INT(de/2)Ode/2 THEN LOCATE >ZE 

#3,2,2:PRINT#3,"n"; 

2160 IF de>3 THEN LOCATE #3,1,1:PRI >LN 
NT#3 ,"o"; 

2170 IF de>l THEN LOCATE #3,3,1:PRI >LP 
NT*3 , u o"; 

2180 IF de>l THEN LOCATE I3,1,3:PR1 >LQ 
NT#3 ,"0"; 

2190 IF de>3 THEN LOCATE #3,3,3:PRI >LH 
NT#3 ,"o"ï 

2200 IF de=6 THEN LOCATE #3,1,2:PRI >NG 
NT#3-, "o o"ï 

2210 SOUND l,de*100,5,3 >QP 

2220 NEXT lan >NC 

2230 RETURN >FA 

2240 ' >ÏA 

2250 ' >YB 

2260 ' >ÏC 

2270 ' déplacement sur l'ec >YD 

hiquier 

2286 ' >YE 

2290 ' déplacement positif >YF 

2300 ' >XH 

2310 PEN 1 >FF 

2320 FOR av=caseli) TO case ( i ) titvt >CK 

2330 IF flV>95 THEN SIG=1:GOTO 2430 >AF 

2340 PAPER 1:PEN >LF 

2350 LXATE xc(av).yclav) >UA 

2360 PRINT USING "##";av >TF 
2370 IF AV>CASE(I) THEN SOUND 2,100 >GA 
0,10,3 

2380 FOR t=l TO 500: NEXT t >TU 

2390 PEN 1 >6D 

2400 LOCATE xc iavi ,yc(av) M 
2410 IF INT(av/2)=av/2 THEN PAPER 2 >PZ 

ELSE PAPER 3 

2420 PRINT USING "##";av >TC 

2430 NEXT av:IF SIS=1 THEN RETURN >BE 

2440 LOCATE xçUv-l),yc(av-t) >XY 
2450 PflPER 1:PEN 0:PRINT USING "#«" >GL 
;av~l 

2460 case(i>=tase(i)+*ivt >W 

2470 FOR CL=1 TO JOUEUR >RN 

2480 LOCATE #1,9, I+1:PRINT#1, "-"; >BA 

2490 FOR t=l TO 10:NEXT t >TM 

2500 LOCATE IU,9,I+1:PRINT#1, USING >RW 
"##"icase(ii; 

2510 NEXT cl >DF 

2520 RETURN >FC 

2530 >YC 



2540 ' déplacement négatif >YD 

2550 IF case(i)-nvU0 THEN mvt=case >6P 

(i) 

2560 PEN 1 >GC 

2570 FOR re=caseti) TO case(i)-ravt >JR 

STEP-1 

2580 PAPER lsREN >KD 

2590 LOCATE xcirel.ycire) >UG 

2600 PRINT USING "##";re >TC 

2610 SOUND 2,2000,10,3 >PK 

2620 FOR t=l TO 500:NEXT t >TQ 

2630 PEN 1 >6A 

2640 IF INTire,'2)=re/2 THEN PAPER 2 >PE 

ELSE PAPER 3 

2650 LOCATE xcïrei.ycire) >UD 
2660 PRINT USING "## u ;re >TJ 
2670 NEXT re >FA 

2680 LOCATE xctRE+1) ,yc(REH) >XA 
2690 PAPER 1:PEN 0:PRINT USING "##" >GQ 
;RE+1 

2700 caseu)=case(i)-fflvt >UC 
2710 SOTO 2470 >NA 

2720 ' >YD 

2730 ' >YE 

2740 RESTDRE 2800 >LY 

2750 FOR H=l TO 24:READ N,D XX 
2760 SOUND 1,N,D*20,4 >PM 

2770 SOUND 2,N-2,D*20,4 >0H 

2760 SOUND 4,N+2,D*2Û,4 >QJ 
2790 NEXT N: RETURN >PA 

2800 DATA 319,1,319,1,284,2,319,2,2 >Xtt 
39,2,253,3,319,1,319,1,284,2,319,2, 
213,2,239,3,319,1,159,2 
2810 DATA 190,2,239,2,253,2,284,2,1 >QZ 
79,1,179,1,190,2,239,2,213,2,238,3, 
4 

2620 FOR H=100 TO 1006 STEP 100 >UL 
2830 SOUND 1,M,10:FOR T=l TO 100:NE >NX 
XT TiNEXT H 

2840 RETURN >FH 

2850 LOCATE XC(95)+2,YC(95):PAPER 1 >XU 
:PEN0:PRINT "**";: 

2860 CLS #2:P0ST=PQST+1 >TY 

2870 IF POST=i THEN PRINT #2, NOM* il >RE 
>;" A GAGNE" ELSE PRINT #2,N0M(I); 
" EST ARRIVE..." 

28B0 LOCATE #l,9,I+l:PRINT#l,CHR$i2 >RF 
52!CHR*(253); 

2890 ORD(PÛST)=I >HN 

2900 GOSUB 2740 >XG 

2910 FOR T=l TO 4Ô0:NEXT Ts >UA 
2920 IF POST=JDUEUR-NBAB THEN 2960 >CZ 

'le jeu est termine 

2930 PRINT #2:PRINT #2, "NAIS LE JEU >XP 

N'EST PAS FINI" 

2940 JOU(i)=l >LF 

2950 BOTO 1950 >NJ 

2960 PAPER lt PB» 0iCLS >9C 

2970 PRINT "X DEPART >UX 



IE 

2988 :PRINT " 

»**♦*********#*#*" 

2998 FOR 1=1 Tfj JOUEUR >QE 

3866 lûcate 2,1+3 >lk 

3916 if 1=1 then print "vainqueur:" >aq 
tab(26i; else print "numero ";i ta 

B(2») ; 

3826 IF QHBUïïe THEN PRINT NOW'OR >KH 

ptîi) 

3638 NEXT I M 

3848 PRINT >VG 

3858 PRINT " ********************** >Qï 

****************";. 

386(3 PRINT >VJ 

3Ô78 FOR 1=1 TÛ JOUEUR: IF ABU!=1 T >CK 

HEN PRINT " ";NOM*(l! TABI28,' "A AB 

ANDONNE" 

3888 NEXT I >yG 

3096 PRINT " ********************** ;pp 

*********** *****- 

3166 PRINTîPRINT " TAPEZ R' POU >D« 

R REJOUER. SINON 'S' B 

311* IF UPPER*(ItiK£Y$i= u R" THEN RUN >CÏ 

3128 IF UFP£fiîUNkEYî;= il S" Th£N END >CT 

3136 GOTO 3118 >U 

3148 MODE 2:PAPER 1:PEN y :>TE 

3158 WINDEW 16,7y,2.23:CL5:PRINT » >W 

*** B E P A R T ■ Q 



I E ***" 

3168 PRINT:PRINT:PRINT î 

3178 PRINT "'DEPART'OIE' permet une ) 

approche plus ludique de 1 apprent 
îs-saqe des 95 départements francai 
s. Les joueurs, de 1 a 8. de-vront " 
parcourir les 95 cases du parcours, 
le premier arrive e-tant déclare va 
inqueur. " 

3188 PRINTîPRINT > 

3198 PRINT "le tour de jeu de chaqu > 
e joueur se décompose ainsi :" 
3266 PRINT > 

3218 PRINT "Un lancer de de determi ) 
ne le nombre de cases dont le joueu 
r peut avancer. L ordinateur lui de 
mande alors le nos du depar- tement 

de sa case d'arrivée. Le joueur doi 
t repondre sans an- mettre l'articl 
e mais en oubliant d éventuels tire 
ts." 

3220 PRINTîPRINT "Pressez une toucn > 
e SvP...":CAU_ iBB16:CLS 
3238 PRINTîPRINT > 

324B PRINT "Si la réponse est mauva > 
ise, le joueur doit reculer d'un ce 
r- tain nombre de cases, détermine 
aléatoirement," 

3258 PRINT > 

32bv PRINT "Si la réponse est bonne > 
, l'ordinateur lui demande alors d 



e citer la préfecture du departeme 
nt. En cas de bonne réponse le jou 
eur avance de quelques cases, sinon 
il reste sur place et passe son to 
ur. " 

3270 PRINT:PRINT > 

3288 PRINT " Ces Phases de recul c > 
onsecutives a un échec permettent a 
u joueur sortant du parcours d a 
voir acquis des connaissan- ces, B 
e plus l'ordinateur corrige toutes 



3298 PRINT ^ 

3388 PRINT " Un joueur désirant ad >0Q 

andonner tapera ABANDON une Pois so 

n tour arrive. A la tin du jeu, l'o 

rdinateur publie un tableau de cla 

ssement..." 

3318 WHILE INKEYiO"":HEND:PRINT:PR m 

INT "pressez une touche SvP":CSLL i 

6B18:GDTQ 1168 

3328 ERASE DIRÏ,XC,YC:END >vJ 

3336 SÏMBDL 254,6, ï46.&76,&;49,H6,k >KK 

3348 SYMBOL 255 , â, y . &FÛ, âfl , &6, iFE. & >FD 

FE,&2 

3356 SVMBOL 252,8,ïtA,i ! 9,* ! A,fc l ?,M,&B >DQ 

,«.8 

3368 SVMBOL 253, 8,^8,454.^8, S<54,& >CX 

AB 

3376 RETURN m 



TRAIT- STAT 



m/m/RE 



Henri MATHIS 



Ce programme est un logiciel de traitement de données statistiques. 

Il peut fonctionner aussi bien sur une variable que sur deux. 

La représentation graphique des données est effectuée 

par les options 1 à 4. 



• Fonctionnement 

du logiciel sur une variable 

Après avoir sélectionné l'option 6 
(entrée des données : 1 au mini- 
mum), un éventail de cinq possibili- 
tés s'offrent à vous: 

- diagramme en bâton ; 
—graphe ; 

- histogramme ; 



- diagramme en camembert 

- tableau des calculs. 

Pour les trois premières options, 
l'abscisse des axes représentera le 
numéro d'ordre successif de la don- 
née "affichée", l'ordonnée repré- 
sentera le pourcentage de la don- 
née étudiée par rapport à la somme 
(en valeur absolue) globale des 
données. 
La quatrième option est une repré- 



sentation par tranche des différents 
pourcentages sur un camembert (A 
utiliser avec modération pour un 
nombre limité de données : pas 
plus de 50). 

La cinquième option est un récapi 

tulatif des calculs statistiques classi 

ques comprenant 

effectifs ; (^Vdlobl" p*» ur 

effectifscumulés; « toCPC *°* 

fréquence; Il OrPC 6*> A 

CPC6123 




- fréquence cumulée ; 

- moyenne ; 

- variance ; 

- écart-type. 

Un nombre illimité de données peu- 
vent être traitées. Ce nombre est 
conditionné par la dimension des 
variables indicées à la ligne 520. La 
représentation graphique est effec- 
tuée par tableaux successifs de 12 
éléments (les indications concer- 
nant le numéro du tableau sont ins- 
crites en haut à droite de l'écran) . 

• Fonctionnement 

du logiciel sur deux variables 

Pour les trois premières options, 
l'axe des abscisses représente la va- 
leur du caractère, l'axe des ordon- 
nées : l'effectif (avec pour extré- 
mum la plus "grande" donnée en 
valeur absolue). 

La quatrième option est similaire au 
fonctionnement sur une variable. 
Cependant, le pourcentage est cal- 
culé uniquement sur l'effectif. 

Sur deux variables, lors de l'entrée 
des données, on a la possibilité de 
sélectionner la variable des abscis- 
ses : 1 ou 2 au choix. 



1 ' mtt***t***»****#4***»*#***** ,-pft 

2 '* TRAITEMENT STATISTIQUE * >FB 

3 "* PAR HATHIS H * >FC 

4 ; ***************************** >FD 
M MODE 2 >BE 
20 LQCATE 30,2:PRINT "TRAITEMENT ST >TT 



ATISTIQUE" 

3ô LQCATE 3y.3:PRINT 



40 LOCATE 15.7:PRINT "i-Diaqramme e > 

n bâton 1 ' 

56 LOCATE 15.9:PRINT "2-Grache" > 

60 LÛCATE 15,li:PfUNT "3-HistDqramm > 

e" 

70 LÛCATE 15,I3:PRINT "4-ûiaq. ranime > 

en camembert " 

m LOCATE 15.15:PRINT "5-Tableau de > 

s calculs" 

90 LOCATE 15,17:PRINT "6-EntKes rie > 

s donnies" 

m LOCATE 5,20:PRINT "Nota:Apres c > 

haque tableau presser une touche" 

m LOCATE 5, 23: INFUT "CHOU U-6) > 

"iCH 

120 IF (OKI OR CH>6> THEN LOCATE 1 > 

7,23:PRINT " ":GOT0 110 

130 IF CH<>6 AND DONNEES THEN LOCA :■ 

TE 37,17:PRINT n ->Pas de données ?" 

:CH=9;G0T0 120 

14» CLS > 

156 REM DONNEES FIXES > 

m KlNNEEl=DQNNEE:D0NNEE2=DOMEE:k > 

1R=Ô:RQ=0:CMPV=0:POSITION=Ô:NUM=1 

in ON CH GQSUB 2W,3»,4W,#»,7B > 

09,500 

m call m*>h > 

198 GOTO 10 > 

200 REM BATON > 

210 LOCATE 28,1:PRINT "DIAGRAMME EN > 
BATON" 

220 LOCATE 28,2:PRINT "*#*********# > 



240 RETURN 

300 REM GRAPHIQUE 

310 LOCATE 31,1:PRINT "GRAPHIQUE" 



320 LOCATE 31.2:PRINT "***+*»***" ;tj 

330 G0SU6 2000 m 

340 RETURN ?2E 

406 REM HISTOGRAMME m 

416 LÛCATE 31.1:PRINT "HISTOBfiAHHE" >EH 



420 LQCATE 31,2:PRM 



>AT 



430 G0SU8 2000 >PA 

440 RETURN m 

5^0 REM DONNEES >LK 

510 CLEAR m 

520 DIM A(200):D1M B(20Ô) >RB 

540 ORIGIN 0,0:DRAWR 0.391:DRAWfi 63 >KY 
9,^:DRAWR 8,-391: DftAUR -639,0 

5-50 QPIS1N 0,Î50:DRAW 6?V.&!ÛftieiN ;UA 
», 260: DRAW 639,0 

560 FOR PQUR=213 TO 639 STEP 213 >¥U 

570 ORIGIN POUR,260::DRAW è.70 >YC 

580 NEXT POUR m 

590 ORIGIN 426, 330: DRAW 0.61 >VU 

600 LOCATE 16.2:PRINT "*»*******+♦* >|_V 

610 LOCATE 16,3:PRINT n * ENTREES DE ?RB 

S DONNEES *" 

620 LOCATE S6.4:PR1NT "***#******** >LC 



630 LOCATE 5B.2:PRINT "Combien de v >WT 

anable ?" 

640 LÛCATE 61,3: INFUT "(1 OU 2i:\V >Ffi 

ARI 

650 IF VARI=1 OR VARI=2 THEN ELSE L >LF 

ÛCATE 70,3:PRINT " ":G0T0 630 

660 LOCATE 5,6:PRINT "Non de la var >RH 

lable 1" 

670 LOCATE S.7:FRINT "(4 lettres na >KF 

si" 

680 LOCATE 11.8:INPUT *~> n ,Vfttt M 

690 IF LEN<VA1*)>4 THEN LOCATE 13,8 >JU 

:PRINT " ";S0T0 6Û0 

700 IF Vflfil=l THEN 780 >PN 

710 LOCATE 3i,6:PRINT "Nom de la va >TU 

riable 2" 

720 LOCATE 34,7:PRINT "(4 lettres m HJt 

a;;)" 

730 LOCATE 37,8: INFUT B ->\Vft2» >Y'E 

740 IF LEN(VA2*)>4 THEN LOCATE 39,8 >JV 
:PRINT " ":GOT0 730 

750 LOCATE 57,6:PRINT "Variable des >ZR 
abscisses" 

76« LCCATE 62,?:INPUT "il OU 2)";VA >EX 
BC 

770 IF VABC=2 QR VABC=1 THEN ELSE L >PW 
DCATE 71,7sPRINT " ":GQTQ 760 

780 LOCATE 5,10:PRINT "Entrer 1E37 >WC 

pour finir" 

790 G0SU6 1O90:GQSUB 1150 >TJ 



800 REM ENTREES >U 

810 DOMNEE=J :PIL=1 : STS=-1 >VE 

820 LOCATE 16, 13+PIL:PRIN1 DONNEE >CF 

930 LOCATE 29, 13+PILr INPUT "", AIDO >HZ 

NNEE) 

840 IF A(DONNEE)=lE+37 THEN DQNNEE= >U 

DONNEE-1:GOTQ 900 

850 IF VARI=1 THEN B7S >PV 

860 LOCATE 52, 13+RIL: INPUT *", BIDON >HP 

NEE) 

870 DONNEE=DDNNEE+l:PIL=PIL+l >ZC 

880 IF PIL>11 THEN P1L=1:CALL 30000 >NF 

: GOSUB 1090 

890 GOTO B2Ô >flp 

900Ftll=AU):PN3=PNl ffl\ 

910 PN2=Bll):PN4=PN2 >PT 

920 FOR TEO=l TO DONNEE >Ry 

930 IF VABC=1 THEN BRES=Dfi£S+ABSIBi >EZ 

TEQ)):DRES1=DRES1+BITEQ) ELSE DRES= 

DftES+ABS<A!TE9)):DRESl=DRESl+AlTEQ> 

940 IF A(TEQKPN3 THEN PN3=A(TEQ) >BH 
950 IF A(TEQ)>fNÎ THEN PN1=A(TEQ) >BL 
960 IF VABC=2 AND A(TEQ»>0 THEN STG >DD 

=e 

970 IF VARI=1 THEN 1020 >QD 

9B0 IF BITEQKPN4 THEN PN4=B(TE9) >BW 
990 IF VABC=1 AND 6(TEQi>& THEN STG >D6 
-0 

1000 IF B<TEa)>PN2 THEN FH2=B(TH|) >BL 
1010 NEXT TEO >PD 

1020 IF AB5(PN4)>PN2 THEN PN2=ABS[P >FC 
N4) 

1030 IF A6S(PN3)>PN1 THEN PN1=AB5(P :>FZ 
N3! 

1640 IF PNK0 THEN PN1=PN3 >UU 

1050 IF PN2<W THEN PN2=PN4 >UY 

1060 SOSUB 1500 >WF 

1070 IF VARI=Î THEN DRES=FREÛ >ÏQ 

1080 GOTO 190 >FE 

1090 REM POURTOUR DONNEES >WD 

1100 ORIGEN 100,10:DRAWR 0,220:DRAW >PV 
R 44M:DRAWR 0,-220;DRAWR -440,0 
1110 ORIGIN 100,200:DRAW 440.0 >XP 

1120 ORIGIN 180,I0:DRAW 0,220:QRIGI >XN 
N 360,10:DRAW 0,220 

1130 LOCATE 15,12:PRINT "Donn{es":L >CE 
OCATE 28,i2:PRINT "Variable n D l":LO ■ 
CATE 51,12:PRINT "Variable no2" 
1140 RETURN >EK 

1150 REM ROUTINE EFFACEMENT >XW 

1160 FOR MACH=30W0 TO 30012 >UF 

1170 READ K >RB 

11B0 POKE mCH,K >j_n 

1196 NEXT MACH m 

1200 DATA !(3E,ô,t21, 11, 13,^11,23,68 >UF 
,S.CD,fe44,iBC,!tC9,î<ô 

1210 RESTOflE >NH 

1220 RETURN >EJ 

14 



1500 REM FREQUENCE >NI 

1510 FOR FR=1 TO DONNEE >Rf 

1520 FREQ1=FREQ1+ABSIA(FR)):FREQ2=F W 

REg2+ABS(A(FR)*BIFR)) 

1530 NEXT FR:IF VARI=1 THEN FREQ=FR >AF 

EQ1 ELSE FREB=FREQ2 

1540 RETURN >F[ 

2000 REM DESSIN REPERE >RE 

2010 REM ORDONNEES M 

2030 ORIGIN 30,32 >LL 

2040 IF D0NNEE>12 THEN TRAC1=12 EL >VE 

SE TRAC1=D0NNEE1 

2050 IF VARI=1 THEN SRi=35:INCR=l:C >NP 

0=32 ELSE 6R1=195:INCR=-5:CQ=0 

2060 DROIH=460:TRAC=10:PAS2=32 ;ZR 

2O70 IF VARIAI THEN LOCATE 6,24:PRI >AJ 

NT "0":DRAW DROIH,0 ELSE ORIGIN 30, 

195:DfiAW DRDIH,0:LOCATE 6,14:PRINT 

"0" 

2080 0RI6IN 50,15:DRAWfi 0.375 ,-WA 

2090 TAG:MOVER -3,0:PRÏNT CHRÏ<244i >MW 

;:TA6QFF 

2100 IF VARI=1 THEN LOCATE 5.1:PRIN >MH 

T CHR$(37j 

2110 IF VARI=2 THEN LOCATE 3,1: IF >UB 

W6C=2 THEN PR1NT VA1$ ELSE PRINT V 

A21 

212Ô FOR TI=CO TO 340 STEP PAS2 >Wt 

2130 ORIGIN 43,35+TI;DRAW 14,0 >XM 

2140 ORIGIN 15,40+TI >NC 

2150 TA6:IF VftRI=2 THEN PRINT STRSI >QY 

I NCR J ; ELSE PRINT STR$ÏINCR#10i; 

2160 TAGOFF >fifl 

2170 INCR=INCR+1 . >LIJ 

2180 NEXT TI /FC 

2190 IF VAfiI=2 THEN TRAC=5 >UP 

22» REM ABCI3SES >MG 

2220 INCR=65;PAS=410/TRAC1 >WC 

2230 IF VARIAI THEN 31=34:S2=23:0RD >QT 

0=35 ELSE S1=199;S2=188:QROO=196 

2240 FOR TI=FAS TO 410 STEP INTIPAS >Dfi 

1 

2250 ORIGIN 50+TI,Sl:DRAW 0,-7 >YJ 

226Ô ORIGIN 46+TI,S2:TAG; PRINT CHR$ >WZ 

(INCR);:TAGOFF 

2270 INCR=INCR+1 >LV 

22S0 NEXT TI >FD 

236H REM NOM DES ABSCISSES >VN 

2310 ORIGIN 490,S1+4:TAG:F'RINT CHR$ >JN 

(246); 

2320 IF VABC=2 THEN N0M$=VA2$ ELSE >LD 

NUM$=VA1Î 

2336 IF VARI=1 THEN NQM*=VA1* ;XT 

2340 MOVER -25,-16:PRINT NOM$;:TABO >FJ 

FF 

235» REM ROUTINE SELECTION B/6/H >BJ 

2360 REM ******♦****#**#****#**♦ >WM 

2370 PAS1=PAS >TS 

2380 FOR C0=1 TO TfiACl >ÛL | 



2390 MEMA=10+A8SC:t£MV=ORDO+REFL >CG 
2400 IF VARI=1 THEN H=ABS'(A(CQ+R0)7 >2T 
DRES)*11.5:G0T0 2430 
2418 IF VABC=2 THEN MEM=A(CO+RO):AU ;RD 
X=PN1 ELSE MEM=B(C0+R0):AUX=P«2 
2420 H=(5.65*MEW/AUX >PE 

2430 ABSC=40tPASl >MM 

2440 REFL=28*H >Uft 

2450 IF CH=3 THEN GOSUB 5000:GQTO 2 >DE 
470 

2460 IF CH=1 THEN GOSUB 3000 ELSE G >JF 
OSUB 4000 

2470 PAS1=PA51+PAS >Nfl 

24B0 D0NNEE2=D0NNEE2-1:IF DONNEE2=0 >FZ 
THEN TRAC1=DONN£E1:KIR=0:INO=0:GDT 

251e 

2490 NEXT CO >EF 

2500 REM ****+****#»#m#####t#* >hh 
2510 REM ROUTINE AFFICHAGE EXTREMUH >FD 

2530 IF VARI=1 THEN LIS=1:TRAC=TRAC >QM 
1:G0T0 2620 

2540 REH DonnCes des Drdonnîes >AN 
2550 FOR LIS=1 TO TRAC >QY 

2560 LOCATE 66. 1+LI3:PPINT STRÏILIS >KZ 

2570 IF STG=0 AND VABC=1 THEN PRINT >DF 
STRÏ(PN2*LIS/TRAC):PF=1 ELSE IF ST 
G=0 THEN PRINT STR$(PNl*LIS/TRAChP 
M 

2580 IF <VABC=2 AND IPNK0 OR FN3<0 >KT 
)) OR <VABC=1 AND IPN2<0 OR PN4<0)! 
THEN LOCATE 65, 6+LI3: PRINT " ";5TR 
$l-LIS);":";:Ff=2:IF ^ABC^l THEN PR 
INT STR*I-ABS(PN2*LIS/TRAC)> ELSE P 
R1NT STR*(-ABS(PNl*LI5/TRAC)i 
2590 NEXT LIS ,>QF 

2600 LIS=LIS-1 >;K 

2610 REM Donnfea des abscisses >AN 
2620 FOR LISA=1 TO TRAC1 >TB 
2630 LOCATE 67. 1+PF*LIS+LISA:PRIKT >ZB 
CHP$i64+LI3A); N -"; 

2640 IF VARI=1 THEN PRINT USINE "# >ÏH 
##.#";ABSlAiLISA+RO)/FREO)*100;:PRI 
NT CHR$(37):S0T0 2660 
2650 IF VABC=1 THEN PRINT STRtlAILI >VG 
SA+RO)) ELSE PRINT STRÎ(BILISA+RO)i 

2660 NEXT LISA >ZC 

2670 REM Dessin du cadre des donnte >EJ 
s 

2680 ORIGIN 510,«:DRAW 0,400:ORIGIN >PJ 
510,0:DRAW 128,H:0RIGIN 510,399:DR 
AW 128,£:0RIGIN 639, ô: DRAW 0,400 
2690 LOCATE 54,1:PRINT "TABLEAU";NU >FF 

2700 IF DONNEE2=0 THEN RETURN >YJ 
2710 KIR=0:DONNEE1=DONNEE1-12:RO=RO >JD 



272y IF DONNEES THEN IND=t:TOU=ls 
NUM*NUH+l:CflLL &BB06: CLS: GOTO 176 
2730 REM *********************** 

3600 REM ROUTINE DESSIN BATONS 
3020 ORIGIN ABSC,ORDO 
3636 GOSUB -3070: ORIGIN ABSC+15,0RDQ 
+15:G0SUB 3076 

3640 QRIGIN ABSC, ORDD: GOSUB 306Ô:QR 
IGIN AB5t>20.QRDQ:6OSU6 3660:ORIGIN 
ABSC,ORDO+REFL:GOSUB 3660:ORIG1N A 
BSC+20,QRDO+REFL:GOStffi 3060 
3650 RETURN 

3060 FOR G=I TO 15:PL0T G,S:NEXT G: 
RETURN 

3070 DRAWR 0,REFL:DRAWR 20,0:DRA»R 
6,-REFL:DRAWR -20,6:R£TURN 
3680 REM ********************* 
4000 REM ROUTINE DESSIN BRAPHIQUE 
4020 IF TOU=i THEN MEMA=MEMA-416 
4630 IF CMPV=0 THEN ÛRISIN 56,GR1:D 
RAW PAS,REFL:GOT0 4050 ELSE ORIGIN 
MEMA.MEMV 

4040 DRAM PAS.REFL+ORDO-MEMV 
4050 CHPV-1:TDU=0 
4060 RETURN 

4070 REM ************** ******+##* 
5006 REM ROUTINE DESSIN HISTOGRAMME 



5026 IF KIR=6 THEN ORIGIN 50,GR1 EL >U 
SE QRIGIN MEMA-l.Gfil 

5030 DRAWR 0,REFL:BRAWR FAS,0:DRAWR >MN 
0,-REFL 

5040 KIR=1 >pfi 

5650 RETURN >FD 

5060 REM m************************ >YT 



6666 REM ROUTINE CAMEMBERT :>W6 
6016 IF D0N!€E>56 THEN RETURN >VL 
6626 LOCATE 2B,2:PRINT "DIAGRAMME E ,>TW 
N CAMEMBERT' 
6636 LOCATE 2G,3:PRINT 



6046 LOCATE 4,5:PRINT "DIAGRAMME" 
6056 LOCATE 4,6:FRINT ' " 



6066 LOCATE 57,5: 
6076 LOCATE 57,6 
66B0 ORIGIN 16,3: 



PRINT "RESULTATS" 
PRINT " " 



DRAW 577,0:ORIGIN > 
18.395:QRAW 577,0:ORI6IN 18.347:DRA 
U 577,6 

6096 ORIGIN 16,3:DRAW 6,392:0RIGIN i 
595,3:DRAW 0.392:ÛRI3IN 372.3:DRAK 
6,345 

6166 ORIGIN 372, 366: DRAW 223,0 > 

6116 REM DESSIN CERCLE PLEIN > 

6126 DEGîFOR CftM=6 TU 186 STEP 6.9 '.■ 

6136 ANGLE=CAM: GOSUB 6446 ) 

6140 QRIGIN 1S6+L.175+H > 

6150 DRAW 6,-2*H,l ) 

6166 NEXT CAM > 



6170 REM AFFICHAGE DONNEES ET RAYON >ET 

10 REM ************************** >ZY 

6190 FOR CIR=1 TO DONNEE >TF 
6266 PQURC=ABS{A<CIR)/DRES)*166 >AY 
6210 IF VABC=1 THEN POURC=ABS (6 (CI >QJ 
R)/DRES)*166 

6220 LOCATE 48+POSI T ION, 8+ VERT I : PR I >ME 
NT STfit (CIR> ; "-" ; STRÎ (ROUND (POURC) I 
;CHR*(37> 

6236 POS I T I QN=P05 ITIOhH-9 >WU 
6240 IF PDSITI0N=27 THEN POSITIONS >XD 
:VERTI=VERTI*1 

6256 DEGR=3.6*P0URC >FE 

6266 P0SI=ANG*DEGR/2 >QJ 

6276 ANG=ANG+D£6R >MJ 

6286 REM AFFICHASE RAYONS >VD 
6296 ANGLE=PQ5I ;LP 

6300 EOSUB 6446 >XF 

6316 DRIGIN 1S6+L,175+H:DRAW L*1.4, >GE 
H*1.4 

6326 TAS:PRINT CIR;:TA50FF ;WV 
6336 GOSUB 6386 >YB 

6340 NEXT CIR >PC 

6350 VERTI=6 >KC 

i360 RETURN >FJ 

)386 L=4*CDS<ANGi*16 >PQ 

t396 H=4*5IN(ANG)*16 >PT 

6466 QRIGIN 1B0.175 >MT 

i6 DRAW L,H,0 >ÏE 

6420 PLOT 0,0,1 HJB 

6436 RETURN >FG 

6440 L=4*C0SIANGLE)*16 >QH 

6450 H=4*SIN(ANGLE)*16 >RB 

6466 RETURN >FK 

7066 REM ROUTINE DONNEES >UB 
7010 REM DONNEES FIXES >RM 

7026 EFFCUM=0:FRECUM=6:MOVE=6:VARIA ,>ZJ 
N=0:AUBE=DONNEE 

7030 IF DONNEE) 1B THEN DQNNEE1=1B E >ZF 
LSE D0NNEE1=D0NNEE 

7640 GOSUB 7266 >XJ 

7656 FOR TRAI=1 TO D0NNEE1 >VE 
7666 LOCATE 4,6+TRAI:PRINT TRAI+RQ >DL 
7676 IF VARIAI THEN LOCATE 25,6+TRA >UX 
I:PRINT A(TRAI+RO):HAS=AÎTRAI+RO):M 
OYE=MDïE+HAS; 1 JARIAN=VARIAN+HAS"-2:S0 
TO 7116 

7686 IF VABC=! THEN LOCATE 11,6+TRA >CK 
ItPRINT flOSM+RB) ELSE LOCATE 25,6 
+TRflIi PRINT AiTRAI+RO) 
7696 IF VABC=2 THEN LOCATE 11,6+TRA >CP 
hPRINT B(TRAI+fiOi ELSE LOCATE 25,6 
+TRAI:PRINT EiTRAI+RQJ 
7166 IF VABC=t THEN HfiS=6(TRAI+RD>: >AX 
MQYE=M0fE+NAS#Â(TRAI+R0i:VARIfiN=VAR 
IAN+HAS*(A(TRAHR0)'-2) ELSE HAS=AIT 
RAI +R0 ) : MO¥E=MO¥E+HflS+B i TRA I +R0 ) ï Vft 



RIAN=VARIAN+HAS*iB<TRAI+RQ> 2) 

7110 EFF0JM=EFFCUM+HA5 >TD 

7120 LOCATE 39,6+TRAI:PRINT EFFCUM >DR 

7130 FR£QUE=ABS(HAS/DRES!*100 >ZB 

7140 LOCATE 56,6+TRAI:FfiINT USING u >TI 

##*.##" ;FREQUE 

7150 FRECUM=FP£CUM+FREQUE >WT 

7160 LQCATE 69, 6+TRAI: PRINT USINS " >TZ 

#fHt.*#";FRECUH 

7170 NEXT TRAI >AA 

71B0 AUBE=AUBE-1B:RQ=R0+18 >K6 

7190 IF AUBEMB THEN CALL &BB66:CLS >BD 

:DONNEE1=1S:GOTD 7040 

7200 IF AUBE>6 THEN CALL &BB66;D0NN >CJ 

EE1=AUBE:CLS:G0T0 7040 

7210 IF VARI=1 THEN AUST=DONNEE ELS >TX 

E AUST=DRES1 

7220 MOYE=MÛYE/AUST:VARIAN=ABS(VARI >BR 

AN/AUST-MQ¥E A 2) : ECART=59ft (VARIAS) 

7230 ORISIN 190,358 >MZ 

7240 TAG:PRINT MOYE;:MQVE 116,0:PRI >GR 

NT '7ARIAN;:M0VE 226,0:PRINT ECART:: 

TAGOFF 

7250 RETURN >FH 

7266 REM DESSIN CADRE XJV 

7276 ORIGIN 10,5:DRAW 0.392:DRAWR 6 ÏKV 

10,6:DRAWR 6,-392:DRAWR -616,6 

7286 QRIGIN 75,5;DRAW 0,335 >^T 

7296 FOR CADA=195 TO 515 STEP 110 >YN 

7366 ORIGIN CADA,5:DRA« 6,392 >XB 

7316 NEXT CADA >VH 

7320 DRAW 6,392 >UB 

7336 QRIGIN 16,340:DRAW 610,0 >BE 

7340 ORIGIN 16,314:E*AW 616,0 >WG 

7356 QRIGIN 185,365:DRAH 336,6 >XC 

7366 MOVE 30,22: TAG:PRINT "MOYENNE" >ZD 

; : MOVER 45,6:PRINT "VARIANŒ";:MQVE 

R 46,0:PRINT "ECART-TYPE"; : TAGOFF 

7376 LOCATE 4.2:PRINÎ "CALCUL STATI >N0 

STIQUE" 

7386 LOCATE 4,3:PRINT "■************ ;>GU 

7390 LOCATE 66. 2: PRINT "TABLEAU";NU >FP 

H 

7400 NUH=NUM+1 ,'BG 

7416 LQCATE 66, 3: PRINT "Variable:"; >LT 

VARI 

7420 LQCATE 3.5:PRINT "DonnLes" >CM 

7430 LOCATE 11, 5: PRINT "Val du cara >JF 

c" 

7440 LOCATE 26,5;PRINT "tffecti+s" >FQ 

7456 LOCATE 39,5:PRINT "t+iect cwu ,'KL 

r 

7466 LOCATE 53,5:PRINT "Frequen ("; >TH 

CHR$(37);°)" 

7476 LQCATE 66.5:PRINT "Fre cumu I" >UT 

;CHR$(37);"r 

7486 RETURN >Bt 
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Notre ami Alca a une tâche difficile à remplir : en effet, 

un avion lui a parachuté quatre piles pour que son générateur 

fonctionne à nouveau. Il doit donc mettre les piles dans le générateur 

en se frayant un chemin à travers les glaçons qui jalonnent la 

banquise. Pour corser la difficulté, un horrible monstre vous 

pourchasse et cherche à vous dévorer. 
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>LA 


270 HODE 


>HG 


490 FOR 1=1 TO 4 


m 


26 




>LB 


280 ' 


>TA 


500 x=INT(RND*14)+3 


m 


30 ' Ici-PIERRE LE BORGNE - 




>LC 


290 '-routine de test écran - 


?TB 


510 v=INT(RNu*19)+3 


>ND 


¥) ■ 




>LD 


300 asX=l 


>CD 


520 LOCATE x,y:PEN 1:PRINT CHRS(205 


m 


50 ' 




>LE 
>LF 


3tt 5creen=100:i$=HEX*ï§a5.K.4):FUKE 


>LK 


1 

530 NEXT 1 


M 






screen , &CD: PfflE screen+1 , (*8:PtSI 




70 initialisation — 




?L6 


screen+2,&B6:PQKE 5creen+3,&32:fflKE 




540 —-, — générateur 


:>rk 


75 DEFINI a-c,e-2 




m 


5c,-eenH,WL('V+RISHT$i;it,2)):PÛK 




550 x=INURND*14)+3:y=INT(RND*i9t+3 


m 


80 DIM h (10) 




>Vft 


E screen+5,VALt"ii"+LEFÎ*iz*,2>i:PQK 








90 DIM h$(10) 




m 


E screen+6,&C9 




560 LOCATE x,v:CALL screen:IF «X<> 


;PH 


100 FOR i=l TO 10 




>BD 


320 couleur a zéro 


>RF 


32 THEN 550 




110 hli)=10:h*li>= u AMSTRAD 




>W 


- 




570 PEN 2:PRINT CHR$(2Û4) 


>TE 


120 NEXT i 




>NB 


330 INK 0,0: INK 1,0: INK 2,0:M 3,0 


>RA 


580 alca 


>TD 


130 SYMBOL AFTER 200 




>PN 


:INK 4,0:1*: 5,0:11*: 6,0:INK 7,26:P 




590 X=INTiRI4D*16)+2:y=INT(RND*21j+2 


>EB 


140 SYMBOL 200.126,129,177 


161,133, 


>MP 


flPER 6: BORDER 0:CLS 








141,129,126 






340 ' ***********#****#******# 


■RH 


600 LOCATE K,y:CALL screen:IF asXO 


m 


150 SYMBOL SI, 24,24,24, 60, 90 A 255,: 


>GT 


350 ** ** 


>fij 


32 THEN 596 




55,102 






360 '** création de l'écran * 


>RK 


6Î0 PEN 3:PRINT CHRJ(202J 


m 


160 SYMBOL 202,24,56,24,44,82,41,30 >DB 


370 ** ** 


>TA 


620 a=x:ù=y 


>K 


,6Ô 






386 ************************ 


m 


630 SOSUB 650 


m 


170 SYMBOL 203,24,28,24,52 74.1 




>TC 
>J2 


640 GOTO 710 


.■■2E 


20,60 






400 LOCATE 1.25:PEN 7:PRINT ''TABLEA 


650 ' monstre 


■ TB 


180 SYMBOL 204,36,36,255,255,255,2 


>KA 


U";ta 




660 x=INT(RND*i6H2:y=INÎ(RNB*21)+2 


>DH 


5,255,255 














190 SYMBOL 205,28,54,34,54,62,62,34 ,>DV 




m 


670 LOCATE x,y:CALL screen i IF asXO 


m 


410 - - qiâCQn 


,62' 






420 FOR 1=1 ÏQ 24 


>CD 


32 THEN 660 




200 SÛTO 191$ 




>FA 


430 FOR .1=1 TO 7 


m 


680 PEN 5:PRINT CHR*(20l) 


>T6 


210 d=0.9V 




m 


440 x=INT(RND*19)>l 


;NC 


690 zm=32 


>GK 


22«pin=2 




m 


450 LOCATE x,i:PEN 0:PRINT CHR*(200 


>D6 


700 RETURN 


>ZC 


230 5=0 




>PF 


1 






m 


iïv — Doroure 


240 point=0 




:..cf 


460 NEXT 1 


>NK 


720 PEN 4 


>AF 


250 ta=l 




>YC 


470 NEXT 1 


>NK 


730 LOCATE 1,Ï:PRINT STRIN6Ï120,CHR 


>KK 


260 pile=4 




>RE 


480 ' Piles 


)TC 


$(2331) 





74y LOCATE 1,24; PRINT STRING$i20.CH > 
Rt( 233)1 

758 FOR 1=1 TO 24 ) 

760 LOCATE l,i:PRlNT CHRK233): > 

770 LOCATE 20,i:PRINT CHfi$!233): > 

780 NEXT i > 

790 PEN 1 > 

900 ' — commentaire > 

B10 LOCATE 1,25:PRINT "score:";s > 

92ô FOR i=l TO pin > 

830 LOCATE lt+i,25:PRINT CHR*!202!: ) 

840 NEXT i > 

S45 -remise des couleurs - ) 

650 ENK 0,2: INK 1,0:1* 2,6:11*: 3,9 > 
:INK 4,16:11*: 5,0.12: INK 6,26:PAPER 
b: BORDER i 
860 



880 * déplacement ALCA * >TG 

690 '+ * >TH 

900 ' IHWWHI I HI»««I >RK 

910 IF INKE¥(47)0-1 OR 1NKE¥(76K> >VU 
-1 THEN GÛ5UB 1110 

920 PEN 3 >m 

930 aa=a >YE 

940 bb=b >¥J 

950 &v*i.W£1i$iO-l OR 1NK£ïi74k >UP 
M1-UNKEYUK>-1 OR INKEY175KM 

960 b=b+UNKEY<0K>-l OR INKEYÎ72K >UF 
>-l)-iINKEY(2ÏO-i OR IHKEVt 73)0-1 

970 LOCATE a,b:CALL screen M 

m IF (35X032 AND a5l<>»l) OR (a >TG 
*aa AND b=bbl THEN a=aa:b=bb:60TQ 1 
030 

990 IF a>aa THEN PRINT CHRt(203! >Z0 

1000 IF a<M THEN PRINT CHR*(202j >ZB 

l«« IF bObb THEN LOCATE a.b:PRINT >HX 
CHR*(202) \, ' ■■ :■; 

1020 LOCATE aa.bb:PRINT " " >VL 

1030 IF a=x AND b=y THEN 1600 M. 

im IF RND>d THEN GOSOB 1630 >WF 

1050 GOTO 910 .'F6 

1060 *****#*#************* >j@E 

1070 * + >ÏA 

1080 * déplacement glaçon* /YB 



til 

1110 IF IWEÏi0)O-l OR ÏNKEY172K, 
-1 THEN dqx=0:dqy=-l:GOTO 1160 
1120 IF IWEY(2K>-i OR INKEÏÎ73H; 
-1 THEN dgx=0:dqy=i:aOTO 1160 
1130 ÏF INKEY(8)0-i OR INKEÏ04X! 
-I THEN dqx=-l:dqy=0:GQTO 1160 
1140 IF INKEY(iK>-l OR INKEY175K; 
-1 THEN dgx=t:dgv=0:GQTD 1160 
1150 RETURN , " 



1160 qx=a+dgx > 

1170 gy=b+dgy ? 

1180 LOCATE gx,gy:CALL screen: z=asï ) 

nw if iom and tom then reto > 

RN 

1298 ENT 1,10,9, i:SÛUND 1,10,10,4,, > 

1,30 

1210 LOCATE qx+dgx,qy+dgy:CftLL scre > 

en:zz a asï 

1220 IF zï=294 AND z=205 THEN 1330 ) 

1230 IF izz<>32 AND iz<>2M) AND z= ) 

205 THEN RETURN 

1240 IF îzz<>32 AND zzO201ï THEN L ) 

OCATE gx,gy:PRINT ■ =:RETURN 

125B ' ) 

1260 PEN 0*lz=2W/-(z=2«5i ) 

1270 qx=gx+dg>: ) 

1280 qy=gy+dgy > 

1290 LOCATE g:i,gy:CALL screen: IF la 5 

s'i-032 AMD Ml<mi) THEN RETURN 

1300 PRINT CHRS(z) ) 

1310 LOCATE gs-dqx.qy-dgy: PRINT " " ; 



: ;s 

1595 PEN ô*(z=200)-(z=20Sï >TD 

1600 RETURN >FA 

1610 '*♦*****#***#* **+****###* )YA 

1620 * * >YB 

1630 'f déplacement monstre * >YC 

1640 * * >YD 

1650 '**#+#******##******#**#* >YE 
1660 ENV 1,10, 1.1: SOUND 3,100,10,5, >BV 



1320 IF g*= 



AND 



■ THEN GÛSU6 15 DÛ 



1330 LûlATE gx+dgx,gy+dqy:CALL scre ; 

en: IF as?.=204 AND z=205 THEN 1370 

134$ IF tsX»233 AND z=205 THEN pile ) 

=pile-i 

1350 IF POint>=piîe THEN 1466 

1360 60TÛ 1270 ! 

1370 '— Piie Placée — 

1380 ENT 1,100, -ll ; tiS88tfl) 1.100,10 : 

,5,,1:SQUNB 1,100, 10,5. . 1 

1390 LOCATE gx,gy:PRINT " ■ 

1400 point=point+l '. 

1410 s=s+10 ; 

1420 LOCATE 1 , 25: PEN t:FRÎNT "score : 



IF P0int=4 THEN 14B0 > 

IF P0int>=pile THEN 1470 > 

RETURN > 

'toutes Piles placées > 

IF point>=pile THEN paint=0:pi > 
60T0 1520 

5=S+100 > 

point=0 > 

d=d-0,005 > 

ta=ta+l > 

GOTO 330 . > 

le monstre se tau avoir > 

ENT 2,100,-1, 1: SOUND 2.100,100 > 

IF zm=205 THEN pile=pile-l > 

IF zb=204 THEN 330 > 

GQSUB 650 i 

5=5+1 > 

LOCATE 1,25:PEN 1:PRINT "score > 



1670 xx=x;yy=y 

3 x=x+(x>a)-(x<a; 

1690 y=y+(y>bi-ly<b) >l 

1700 LÛCATE x:<, yy >1 

1710 PEN 0»(zm=200i-(zm=205)-2*(zm= >l 
264! 

1720 PRINT CHRJizfsi >l 

1730 LOCATE x.y:CALL screen: zin=asï >i 

1740 PEN 5:PRINT CHRtt2«l> >1 

1750 IF a=;; AND b=y THEN 1800 > 

1760 RETURN 

1770 ' i 

1780 '"** ALCA dévore #* 

1790 ' ) 

1800 ENT 2.200,1,1:SOUND 1,0.100.5, ? 

'ô pin=cin-i ï 

1820 IF pin^l THEN 2220 > 

1830 CLS > 

1840 point-0 > 

GOTO 330 > 

' 

1870 'l#tMHHHi»t#####*it# > 

'ft présentation # ) 

■■###*##*####»##*## > 

I9ôy ' ) 

1910 HDDE 2 ' 

1920 INK 0.0: INK l,26:B0RDEf( 0:FfiPE ! 

R 0:PEN 1:CLS 

1930 TAG 

1940 FOR 1=1 TO 80 t 

1950 PLOT 250.400-1. l:PEN lîPRlNT'T j 

ÏËRftE LE BORGNE": 

i960 MOVE 258,«2-irift» 4iw,402-i. . 



1U 



1970 
19B0 
1990 
2000 
2010 

2fm 

2030 
2040 
2050 
2060 
2070 



NEXT i 

TAGQFF 

LOCATE 36.9;FHNT"PRE5ENTE' 1 : 

RESTORE 2930: PEN 1 

FOR j=l TO 14 

READ x 

RE AD a.D 

HQVE a,b 

FOR i=l TO x 

READ a,b 

DRAM a.b.l 

NEXT 1 

NEXT î 



2100 LOCATE 5,25; PfiINT" INSTRUCTION 
? (o/'n)"; 

211e x=i 

" 212» IF INKEY(34K>-1 THEN 2528 
213Ô IF INKEY(46K>-Ï THEN GOTO 218 >BE 

214b GOSUB 3870 
2159 IF k>25 THEN x=l 
216« x=x+l 
2170 INK l,x 
2180 GOTO 2128 



2208 » best score Sî 

aie ■ 

2220 z*=INKEYtï IF z*<>*" THEN 2220 

223* FOR t=l TO le 

2248 IF sXlîi) THEN GOTO 2270 ELSE 

fCXÎ i 

2250 i=0 

2260 60T0 2370 

2276 INK 9,1: M 1,24, 1:INK 3,26:PA 

PER 0:PEN IîHDDE V 

2280 LOCATE 1,1:PRINT " NOUVEAU HE 

ÏLLEUR SCORE" 

2290 LOCATE 1,10:P£N 3; INPUT " EhjT 

REZ VOTRE NOM ";Z* 

2300 IF LEN(zî>>10 THEN :M_EFTïiîS 

,m 

231Ô FOR 3"16 TO i+l STEP -1 

2320 Mj)=titH) 

233b h$ij)=h*<.i-l> 

2340 NEXT j 

2358 hli!=s 

2360 h»Ci)=z* 

2370 INK B,1:INK 1,24: INK 2,24, l:Pft 

PER ê:PEN 1 : MODE 1 

2380 LOCATE l.hPRINT "Classement d 

es 10 meilleurs scores" 

2390 FOR j=l TO 10 

2400 LOCATE 1-ijUÔ) ,3+j:P£N 1:PRIN 

T );»->« 

2410 IF i=j THEN PEN 2 ELSE PEN 1 

2428 LOCATE 7.3+j:PRINT ht j j 

2436 LOCATE 17,3+JsPRINT htlj) 

2440 NEXT j 

2450 LOCATE 13.25:PEN l:PRINr<BARR 

E ESPACE-" 

2470 IF INKEÏ(47)0-i THEN 200 

24S0 GOTO 2478 

2490 ' 

2500 'là instruction & 

25.10 ' 

2520 MODE Uim 0,0: INI, 1.13: PAPER 

1:PEN 8; BORDER 13:CLE 

2530 LOCATE 1, 1:PRINT"XXXXXXXXUX:'.X 

ni alca xxxxxxxxxxmxxxxx- 

254t» LOCATE 1,7s PRINT "Notre ami AL 
CA a une tache dificile a" 
255y PRINT "remplir. En etfet.sur la 
18 



banquise ou il" 

2560 PRINT "se trouve un avion lui >EW 

a parachute" 

257y PRINT "4 piles pour que son ge >ZB 

nerateur" 

25B0 PRINT "d'énergie puisse toncti >NE 

□nner a nouveau." 

2590 PRINT "Il doit donc «ettre ces >FD 
4 piles dans" 

2600 PRINT "son générateur, Pour pou >R¥ 
f voir les y mettre"; 

2610 GOSUB 3870 ,»XB 

' 2620 PRINT "il doit leurs -faire un >LB 

chemin entre les" 
J 2630 PRINT "glaçons qui jonchent la >JZ 
banquise. hais" 

2640 PRINT "attention un horrible m >RA 

onstre ne pensant"; 

2658 PRINT "qu a le dévorer le pour >VT 

suit." 

2660 LOCATE 13.25:PRINT"<BARRE ESPA ÏJH 

CE>" 

2670 IF INKEY<47K>-1 THEN 2700 >XH 

2680 G0SU6 3970 >XJ 

269B GOTO 2670 >NK 

27W CLS:LOCATE 1. kPRINr'XXXXXXXXX >JW 

XU.XXXX ALCA XXXXXXXXUXXXXXXXX" 

271d LDCATE 5,3:PRINT CHR$i203i;"-) >KE 

■i "ALCA" 

2720 LOCATE 5,5:PRINT CHRïi200> : "-> >NC 

': "GLAÇON" 

2730 LOCATE 5, 7: PRINT CHR*<205);"-> >AB 
; "PILE: 10 points" 

2740 LOCATE 5.9:PRINT CHR$(204! ; "-> ;UX 
; "GENERATEUR" 

2750 GOSUB 3670 >XG 

2760 LOCATE 5,11:PRINT CHRI1201 ;<;"- >CW 

; "MONSTRE:! Point" 
2778 LOCATE 3. 13: PRINT "Pour deplac >BU 
er ALCA utiliser le joystick" 
2780 PRINT "ou le curseur. Pour Une ,'GH 

flacon," 
2790 PRINT "une pile ou casser un g >PF 
lacon utiliser en"; 

2800 PRINT "mené temps qu'une touch >FV 
e curseur la" 

2818 PRINT "barre d espace, ou le jg /BB 
ystick avec" 

2815 PRINT "le bouton fire." >BY 
2820 B0SU6 Wï% >H 

2830 PRINT:PRENT "Vous aurai 190 po ,=UN 

.nts de bonus a chaque" 

2835 PRINT "tableau termine." >DT 

2860 LOCATE Î3.25:FRINT"<6ARRE E5PA >JK 

CE> B 

2870 IF INKEÏ147ÎO-J THEN 210 m 

2880 GGSUB 3878 vyfi 

2890 GOTO 2870 >PB 

2988 " >yg 



2910 '<><> data présentation OO >YE 

2929 ' >YF 

2930 DATA 9,0,48,0,96,152,240,216,2 M 
48,128,96,86,96,112,128,72,126,40,9 
6,9,96 

2940 DATA 7,0,48,40,48,40,96,40,48, >BE 

72,88.72, 128,72, 88,8B,88 

2950 DATA 6,88,96,88,46,128,48,128, >CU 

96,128,48,216,216,216,240 

2960 BATA 4,136,160,104,160,160,224 >RT 

,184,224,136,160 

2970 DATA 4, 164,200, 160,200, 160,224 >QH 

,168,200,128,160 

2980 DATA 14,256,96,264,136,248,136 >DD 

,272,240,248,240,192,96,192,48,256, 

48, 256, 96, 25b, 48, 264.BB, 264, 136,256 

,136,272,192,272,240 

2998 DATA 1,192,96,256,96 >RV 

3008 DATA 15,320,96,320,46,446,48,4 >VF 

46,96,320,96,328,240,392,240,408,28 

0,384,280,376,224,344,224,352.144,4 

80, 144,392, 176,416, 176,448,96 

3010 DATA 2,394,144,392.152,392,176 >AA 

3020 DATA 8,408,208,498,176,384,176 >$} 

,384,280,384, 176,376,280,376,224,37 

6,200,346,208 

3038 DATA 6,512,96.424.248,496,240, >AR 

640,96,600,96,576,126,529,126,552.9 

6,512,96 

3040 DATA 6,424,240,424,288,512,48, >ER 

512,96,512,48,552,48,552,96 

3058 DATA 8,552,80,576,80,576,128,5 .'«C 

76,60,600,48,600,96,688.48,639,48,6 

39,96 

3860 DATA 9,512, i60,544. 168,488.224 MJZ 

,456,224,584, 160, 512, 160, 480. 200. 46 

0,224,480,200.474,200 

3065 ' musique >YG 

3070 READ a,b ;EH 

3860 IF a*-i THEN RESTORE 3130:GOTO ,>GD 

3070 
3890 SOUND l.a,b/2.5 ,>NN 

3100 SOUND 2,0.5*a,b/2.5 'M 
3110 SOUND 4,0.25*a,b/2.5 >TD 
3128 RETURN >EK 

3130 DATA 476,50,379,50,358,50,319, ,'TW 
200,0,5,319,58,476,50,379,50,358,50 
,319,200,0,5,319,100 
3140 DATA 478,50,379,50,356,50,319. >PE 
100,379,100,378, 100,378, 108, 426, 208 

3158 DATA 0,5,426,59,379,50,0,5,379 ,>C-T 

,50,426,50,378,150,0,5,378,50 

3168 DATA 379,100,319,100,8,5,319,5 >LJ 

0,35B, 150,0,5,358, 100,379,50,358,50 

,319,108,379,100 

3170 DATA 378,108,426,100,476,200,0 >PE 

,5,478,50,-1,1 



impRcssion sur cn/eioppes 

Philippe GINDRE 

Ce programme fonctionne sur tous CPC + DMP 2000. 

Comme son nom l'indique, il imprime des adresses de destinataires 

(expéditeur en option) sur des enveloppes déformât réglementaire 

(1151160), mais il est très aisément adaptable à toutes sortes de 

format, par simple modification des fabulations. 



******* *°Zl 



En lignes 510, 560 et 580, l'utilisa- 
teur doit, s'il veut que ses nom et 
adresse soient définitivement mé- 
morisés (pour ne pas avoir à les 
retaper à chaque fois), les intégrer 
au programme sous forme de va- 
riables. Au premier abord, cela peut 
sembler assez inélégant, mais ju- 
gez du temps que l'on perdrait à 
créer puis à appeler un fichier des- 
tiné à ne contenir au maximum que 
onze variables ! (Adresse + pays 
pour envoi à l'étranger). 
De même, il n'y a pas de fichier de 
destinataires : un particulier, sauf 
cas exceptionnel, n'aura pas à récri- 
re aux mêmes personnes suffisam- 
ment souvent pour le justifier. De 
plus, on perdrait beaucoup plus de 
temps à charger ce fichier, à le 
consulter et à demander l'impres- 
sion de telle ou telle adresse, qu'à 
tout simplement la taper (six lignes 
dans le pire des cas, trois en gé- 
néral). 

Les choix se font au fur et à mesure 
du déroulement du programme. En 
cas d'erreur lors de l'entrée des 
adresses, il est possible, lorsque 
toutes les adresses ont été en- 
trées, d'en corriger une. Certaines 
mentions sont facultatives (par 
exemple, le pays si l'on n'écrit pas à 




l'étranger, le lieu dit, ou le centre 
postal). Pour les omettre, il suffit de 
taper "ENTER", aucun blanc ni saut 
de ligne ne sera exécuté pour 
autant, tout sera imprimé l'un en 
dessous de l'autre. De même, si 
l'utilisateur choisit de faire apparaî- 
tre une adresse d'expéditeur, puis, 
qu'après réflexion, il préfère ne pas 
le faire, il suffit de taper "ENTER" à 
toutes les demandes. 
Avant impression, il suffit de placer 
le haut de l'enveloppe sous le ru- 
ban de l'imprimante, après avoir po- 
sitionné le guide papier gauche à 
9" et amené le guide papier droit 
contre le bord de l'enveloppe. Il est 
recommandé de régler le bouton 
"épaisseur papier" en position hau- 
te, en raison de la relative épaisseur 
de l'enveloppe. 

N.B. : le symbole " — >" de la 
ligne 2090 s'obtient par : 
CTRL + i 



30 ' * IMPRESSION SU* ENVELÛFFE * 


H£ 


40 ; * Pour DMF-2Û00 * 


H» 


53 ■ * * 


.'LE 


60 ' * ici 1987 Philippe SINDfit * 


>LF 


70 * * 


>ï£ 


m ■ mmmmHanmmœ*>m$ 


?LH 


n 


>LJ 


100 DËPINT a-; 


m 


110 


m 


120 '**** Azerty accentue **** 


m 


130 


?RE 


m SYMBOL AFTER 63 


,'NÈ 


m SYMBOL 64.96,42,120,12,124,204, 


ïFF 



160 SYMBOL 91, 0.56.10B, 56,0.0, 0,0 
170 SYMBOL 92,0,0,60,102,96,102,60, 



i SïMBOL 93.60.96,60,102.60.0.60, MX 



190 SYMBOL 123.12.24,60,102.126,96. >EK 



200 SïMBOl 124, 4B, 24, 102.102,102.10 >SR 



,24,60,182. 126, 9t>, ;€P 



s Deroulei 



210 SÏMBQL 1 

60,0 

22e ' 

230 ' 

240 ' m 

250 INK 0,0:BOfiDER 0:MOOE 2:CLS ;YB 

260 PLOT 5,5:DRAW 635,5 .'QN 

270 DRAW 635,395 >CB 

298 DRAW 5,395 >MG 

290 DRAW 5,5 >YC 

300 WINDQW 2,79,2,24 >NQ 

310 LOEATE 25,4:PR1NT"#I IMPRESSION >HB 
SUR ENVELOPPES I*":L0CAÎE 27,10!PR 
INT"(c) 1987 Philippe SINDR£ u :F0R H 
19 



=1 TQ 2000:NEXT 

323 LOCATE 25,4:FRINT"*I IMPRESSION >FW 

SUR. ENVELOPPES 1*":PRINT CHR*i7):L 
QCATE 21,10:PRINT"vbule:-vous faire 

figurer une adresse" : LOCATE 21,12: 
FRÎNT"d eKpiditEur sur l'enveloppe 

;o-n> ?" 

330 a*=INKEY*:IF aï="" THEN 330 HOJ 

340 IF a»="o" OR a*="Q" THEN 379 >WD 
350 IF aî="n" ÛR a*="N" THEN CLS;60 >JV 
SUB U20:GÛSUB 1260S8OSUB 1150:G03U 
B 1280:6OSUB 1150:GOSUB 130O:6DSUB 
1 15": GÛStlB 1320:GQ3UB 1150:GQ5UB 13 
4Ô:GQSUB 1150:GÛ3UB i360:GOSUB 1390 
:G0SUB i82«:G0TQ 430 
360 GOTO 330 ,ZB 

376 CLS:LÛCATE 25,4:PRINT"*! IMPRES >CA 
SIQN SUR ENVELOPPES X*":L9CATE 22.1 
0:PRINT"vauieL-™is choisir une des 
adresses": LOCATE 22.12:PR1NT" d 
expéditeur en mî&nre <0-N> ?":PRIN 
T CHR$(7) 

3S0 b$-INKEY$:IF b*="û" QR b*="o u T >EQ 
HEN GOSOB 510:CLS:GÛT0 420 
m IF o*="N" OR bï="n" THEN GOTO 4 >BD 



400 [- 



} 380 



>Z6 



41â GOSUB MfcSGSUB 770;&ÛSUB 650:G ; 
QSUB 790:GO5UB 650:G03UB 810:GOSU& 
65ô:B0SUB Û30:GOSUB fc59:G0SUB 850:6 
OSUB 650:SQSUB 870:GO3UB 90O:CLSîGa 
TO 420 
42tt CL5:S0SUB 1120:SOSUB 126ê[fiQSUB :■ 

1150:GQSUB 1280:6DSUB 1150:G0SUB I 
300:BQ5UB 115«:S0SUB 1320:GOSUB 115 
0:SOSUB 1349: GOSUB 1150:6ÛSUB 1360: 
GQ5UB 1390:G0SUB lfalê:BÛSUB 1840 
430 GOSUB 2010:CLS:FOR n=l TO 90Ô:N > 
EXT n:LOCATE 22,4:PRINT"# IHPRESSIO 
N SUR ENVELOPPES *":PRINT CHR*(7):L 
OEATE 17,10:PRINT"VDulez-vou5 iapri 
mer une autre adresse?" 
440 c$=INKEY*:IF c*=" n THEN 440 ; 
45*3 IF cî="Q" OR cî="o" THEN CLS: G > 
OTO 320 

460 IF ct="N" OR c$="n" THEN MODE 1 > 
îINK 0,i:BOfiDER 1:END 
470 GOTO 440 > 

480 ' >■ 

490 "*«** adresses d'expéditeur en > 
meffloire **** 

500 >l 

510 CLS:LOCATE 22.4:PRINT"*I Choix >l 
de l'adresse d'expîditeur X*":PRINT 

CHRS(7):LÛCATE 27,9:PRINT a i) Prîno 
i N0M":L0CATE 27, U:PRINT"2) Prîno» 
NOM + Pays" 

520 ch*=INK£Vt: IF ch$="" THEN 520 V, 
530 IF chS="l" THEN GOSUB 560:RETUR >] 
20 



540 IF chî="2" THEN GOSUB 580:RETUR >DD 
N 

550 GOTO 520 >Jp 

560 nisspt="M. Prïnom NOM de l'expîd >RB 
iteur":adxp$="adresse de l'expîdite 
ur":cdxpï="Code Postal Ville" 
570 RETURN >ZH 

580 nraxpt="M. Prtnom NOM de l'expîd >CK 
iteur":adxp$="adre55e de l'expîdite 
ur":cdxp$="Code Postal Ville":pxpi= 
"Pays de I 'expéditeur" 
590 RETURN >IK 

m GOTO 520 >VK 

610 ,-rh 

620 '***♦ tableau de sélection de 1 ,'RJ 
expéditeur *#+» 

m ' m 

640 CLS >{£ 

650 LOCATE 24,4:PRINT"*I Sélection >Klii 

de 1 'expéditeur X*" 

660 LOCATE 1,B:PRINT" I) Nom Preno ;LL 

■ de l'expiditeur : " 

670 LOCATE l,10:PRINT" 2) Lieu dit >JP 

680 LOCATE 1,12:PRINT" 3* Numiro e >RU 

t rue : " 

690 LOCATE 1,14:PRINT" 4) Code pos >&H 

tal ET ville : " 

700 LOCATE I.IùjPRINT" 5) Centre p m 

ostal (facultatif) : " 

710 LOCATE 1,18:PRINT" 6) Pays ; " >DJ 



720 LOCATE 1,20:PRINT" 



■■CL 



» sélection de l'expéditeur >TC 



750 '« 

**** 

760 ; 

770 LOCATE 1,8:PRINT CHR$i243) ;PRIN ; 
T CHR»(7i:LÛCATE 3,8:LINE INPUT"ij 
XNom Frenom de l'expîditeurX : ",ns 
x P * 

780 RETURN ) 

790 LOCftTE l,10:PfiINT CHRÎ1243):PRI ) 
NT CHRt (7): LOCATE 3.1Ô:LINE ÎNPUT"2 
) ILieu dit! : ",1xpÎ 
B0O RETURN ) 

810 LOCATE l,12:PRINT CHRÏ(243i:PRI ) 
NT CHR*!7):L0CATE 3,12:LINE INPUT'3 
) INunKro et ruel : \adxpt 
820 RETURN > 

830 LOCATE 1,14:PRINT CHRt(243):PRI ) 
NT CHRI (7): LOCATE 3,14:LINE INPUT"4 
) ÏCode postal ET ville! î ",cdxp$ 
840 RETURN > 

850 LOCftTE 1,16;PRINT CHRÏÎ243! :PRI > 
r NT CHRt(7):L0CATE 3,16:LINE IWUT ,I 5 



. ! ICentre Postal (facultatif)! : ". 
cp«p$ 

860 RETURN ,>Zk 

870 LOCATE !,18:PRINT CHRI(243):PRI >XQ 
NT CHR$(7!:L0CATE 3,1B:LINE INPUT'Ù 
I IFaysï : ",pxpî 

B80 RETURN Mffl 

B90 ' ÏÎH 

9Ô0 '**** erreur dans l'expéditeur >RK 

910 ' >TA 

920 SOSUB 650:LOCATE 1,20:PRINT CHR >VV 
*(243):L0CATE 3,20:PfiINT"IAve;-vou5 
fait une erreur <G-N> ?X":PRINT CH 
fi$!7! 

930 d*=INKE¥4:IF 6i="" THEN 930 >ÏN 
940 IF £»»V OR d$="0 u THEN 970 ?W 
950 IF d$="n" OR: d*="N" THEN RETURN >BM 

960 GOTO 930 >AD 

970 GOSUB 650:LDCATE 1,20:PRINT CHR >AF 

*(243):LQCATE 3,20:PRINT'I0! est ce 

tte erreur ? (1,2,3,4,5 ou 6)I":PRI 

NT CHR* (7) 

980 eï=INKEYÏ:IF e$="" THEN 9Go ;XB 

990 IF et=" 1 ,r THEN 60SUË 650:ËOSUB >BF 

770;G0SUB 650:GOTO i960 

1000 IF e*="2" THEN GOSUB 65O:G0SUB >Bï 

79«:G0SUB 650;60T0 i960 
1010 IF e*="3" THEN GOSUB 65ô : 3Q5UB >BT 

BlÔiGOSUB 650:GOTO iObO 
1020 IF et="4" THEN GOSUB 65Ô:G0SUB >BX 

630:6OSUB 650:G0T0 106Ô 
1030 IF e*="5" THEN GOSUB 650:G0SUB :BB 

850:GÛ3UB 65«:G0ÎQ 1060 
1040 IF e*="6" THEN GOSUB 650:GQSUB >BF 

870:GOSUB 65O:G0TO 1060 
1050 GGTO 980 >FJ 

1060 GOSUB 650:L0CATE i.20:PRINT CH >TQ 
R*(243) îLDCATE 3. 20: F'RINT"ÏAvez-vou 
s fait une autre erreur <0-N> ?! 

":PRINT CHR*Î7) 
107O rt=INKEYSiIF fï= n,i THEN 1070 >ÏH 
1080 ÏF f*="o" OR f$="0" THEN SOTO >CA 
970 

1090 IF ft="n" QR -ft="N sl THEN RETUR >CN 
N 

1100 GOTO 1070 >LH 

ItlO RETURN /ES 

1120 ' >XG 

1130 '**** tableau de selEction du >XH 
destinataire **♦* 

1140 ' m 

1150 LOCATE 22, 4:PRINT"*I Choix de m 
l'adresse du destinataire X*" 
1160 LDCATE 1,8:PRINT" 1/ Nom Pren >MA 
on) du destinataire : " 
Î170 LOCATE KlOiPRINT" 2) Lieu di >KV 



1160 LOCATE 1,12:PRINT" 3) Numîro >TE 

et rue : " 

1190 LOCATE 1.14:PfiINT" 4) Code P o >CP 

stal ET ville : " 

1200 LOCATE 1,16:PRINT" 5) Centre >f*l 

postal (facultatif) : " 

1210 LOCATE 1,16:PRINT" 6) Pays : >EK 



1220 LOCATE 1,20:PRINT" 



[M 



1230 RETURN >EK 

1246 '+*** sélection du destinatair >XK 
e **** 
' 1250 ' >¥A 

1260 LOCATE 1.8: PRINT CHft$(243):PRI >TC 
NT CHR* <7i: LOCATE 2,8:LINE INPUT" 1 
1 INom Prénom du destinataire! : ", 
nmd* 

1270 RETURN >FD 

1280 LOCATE 1,16:PRINT CHRS(243i:PR >EC 
INT CHR*(7):LQCATE 2.10:LINE INPUT" 

2) 2Lieu ditï i Ud* 

1290 RETURN >FF 

1300 LOCATE 1,12: PRINT CHR$(243):PR >RX 
INT CHR*<7): LOCATE 2,12:LINE INPUT" 

3) ÏNunKro et rueZ : \add* 

1310 RETURN >EJ 

132Ô LOCATE 1,14: PRINT CHR*(243):PR >FF 
INT CHRÎ(7):LGCATE 2,14:LINE INPUT" 
41 XCode postai ET villél : ",cdd* 



1330 RETURN ) 

134y LOCATE 1,16:PRINT CHR*(243):PR > 
INT CHR*i7):L0CATE 2,16:LINE INPUT" 

Si ICentre postal (facultatif)! : " 
,cpd$ 

1350 RETURN > 

13*0 LOCATE 1.18: PRINT CHfi*<243):Pfi ; 
INT CHfi*(7):L0CATE 2,18:LINE INPUT" 

6) IPaysï : ",pd$ 

1370 RETURN > 

1380 ) 

1390 '*#*# erreur dans le destinata > 
ire **** 

1400 ' > 

1410 GOSUB 1150:LOCATE 1,20:PRINT C ) 

HR*(243i:LQCfiTE 3,20:PRINT"XAve:-vo 

us fait une erreur <.0-N> ?Ï":PR1NT 

CHRS(7) 

1420 q*=INKEY*:IF gt="" THEN 1420 ; 

1430 IF g*="o" m q*="D" THEN 1460 > 

1440 IF q$="n" OR g*="N" THEN RETUR J 

N 

1450 GOTO 1420 J 

1460 GOSUB 1150:LOCATE 1,Î0:PRINT C ) 

HR* (243): LOCATE 3.20:PRINT"ÏDi est 

cette erreur ? (1,2,3,4,5 ou 6)K":P 

RINT CHR$(7) 

1470 h*=INKEYt:IF h*="" THEN 1470 



1460 IF h*="l" THEN GOSUB 1156:GÛSU >TF 

B 1260:GOTO 1550 

1490 IF h*="2" THEN GOSUB 1150:GOSU >TK 

B 1280:GOTO 1550 

1500 IF h*="3" THEN GOSUB 1150:GOSU >RD 

B 1300: GOTO 1550 

1510 IF h*="4" THEN GOSUB 1150: GOSU >RH 

B 1320: GOTO 1550 

1520 IF h*= u 5" THEN GOSUB 1150: GOSU >TD 

B 1340: GOTO 1550 

1530 IF h*="6" THEN GOSUB 1150: GOSU >TH 

B 1360: GOTO 1550 

1540 GOTO 1470 >i1K 

1550 GOSUB 1156:LQCATE 1,26:PRINT C >DN 

HR*l 243): LOCATE 3,20:PRINT"ÎAvez-va 

us fait une autre erreur <0-N> ?X 

":PRINT CHR*(7! 
1560 iï=INKEY*:IF 1$="" THEN 1560 >ZC 
1570 IF i$="o" DR iî="D" THEN 1460 >V6 
1580 IF i*="n N OR i*="N" THEN RETUR >CZ 
N 

1590 GOTO 1560 >NE 

1600 RETURN >FA 

1610 '#*** impression expéditeur ** >ÏA 

1620 ' >Y6 

1630 GOSUB 2060 >«A 

1640 IF nnxpt="" AND 1xp$="" AND ad >RF 

x P i=" AND cdxp«*'» AND cpxpî=" !l AN 

D pxp$="" THEN RETURN 

1650 PRINT *8,CHfi$(15);"exp: l, i 'car >ZC 

a. mini 

1660 IF ™ s pS="" THEN 16B0 ELSE 167 ;>BE 



1670 PRINT #8,CHRS<9);n»xp$ >WP 

1680 IF îxp$=" THEN 1700 ELSE 1690 >ZÏ 

1690 PRINT #8.CHR*(9);1xp* >VK 
1700 IF adsp*="" THEN 1720 ELSE 171 >Aï 

1710 PRINT #8,CHR*l9);ad:ip* >VU 
1720 IF cdxp*="" THEN 1740 ELSE 173 >AG 

1730 PRINT #8,CHRï(9);cdxp$ m 

1740 IF cpxp*= ,1L1 THEN 1760 ELSE 175 >A6 

S 

1750 PRINT #S,CHR$f9)icpxpl M. 

1760 IF pxp*="" THEN 1786 ELSE 1770 >AA 

1770 PRINT *B,CHR$(9);CHR*i27): ,L -"; >QK 

CHft$(li;pxp* 

17B0 PRINT #8,CHR$i27);"-";CHRI(0); >BE 

1790 PRINT #8,CHRi(18): condense a >RB 

nnule 

1800 RETURN >FC 

1810 ' >ÏC 

1820 **** impression destinataire >ÏD 



1830 GOSUB 2060 >XC 

1840 PRINT #e,CHR$(ll); >QA 

1850 PRINT #8,CHRÏ(9): saut de tab X£ 

. har. 

1860 IF nflid*= ! '" AND ld*="" AND add* >EX 

="" AND cdd$= u ' ! AND cpd$="" AND PdS 

="" THEN RETURN 

1870 IF nnd*="" THEN 1B96 ELSE 1B80 >ZN 

1880 PRINT #8,CHR$(9);CHR*(9i;nad$ >BV 

1B90 IF ld*="" THEN 1910 ELSE 1900 >YP 

1900 PRINT #8,CHR$(9i:CHRïl9i!ld$ >Aï 

1910 IF add*="'* THEN 1930 ELSE 1920 >Zï 

1920 PRINT #8,CHR»(9);CHR$(9)iaddï >BQ 
1930 IF cdd$=" THEN 1950 ELSE 1940 >ZG 

1940 PRINT #B,CHR$(9);CHR$l9);cdd* >W 
1950 IF cpdî="" THEN 1970 ELSE i960 >ZB 

i960 PRINT #8,CHR$(9):CHR$(9);cpd* >6K 

1970 IF pd$="" THEN RETURN ELSE 19B >CO 



1980 PRINT *8,CHR*(9);CHR$(9);CHR*( >YA 

27):"-";CHR*(l)ipd* 

1996 PRINT #6,CBRï<27);"-";CHR*i0): >BH 

2600 RETURN >EF 

201O PRINT #B, CHR* (27 ï ; CHR4 1 8) +CHR4 >S* 
112); 'chqaint de paqe 

RETURN >EH 

ÏM 

**** attente + réglages impre >XJ 



203) 
2030 
2040 
ssioi 
2050 ' 
2060 K*=' 

2076 ys=' 



.'Zb 



2680 CLSiFOR n=l TO 900:NEÏT n:L0CA m 
TE 34.4:PRINT"*I IMPRESSION I*":PRI 
NT CHR* (7): LOCATE 30,10:PRINT "Vîri 
fie: riisprimante 11 :LXATE 28,12:PR1 
NT "puis presse: Control + 'i "" 
2090 LOCATE 26,13:PRINT xï:LOCATE 2 >G8 
6,13:PRINT y*:L0CATE 26.9:PRINT x*: 
LOCATE 26,9:PRINT y*:aï=INKEY*:IF a 
*="+" THEN 2100 ELSE 2090:6QTÛ 2166 

2100 PRINT #8,CHRÏ(27):"B";CHR*!10) >LN 
;CHR$i0); "réglage de la tab. vert. 

2110 PRINT #8,CHF»(27)ï"D B ;CHR$(3); >VG 
CHR$I26);CHRJ(0}: 'réglage de la ta 
b. hor. 

2120 PRINT #8,CHR$127);"C";CHR*(0); >(ffl 
CHRt(4.5); réglage de la Igr. de p 
âge 
^2130 RETURN >EK» 

21 
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AUTO -DICTES 




Dominique DEVEVEY 



Le programme permet de saisir le texte d'une auto-dictée 
puis de l'apprendre en essayant de retrouver des mots cachés par 
l'ordinateur. Au fur et à mesure que l'enfant progresse , l'ordinateur 

cache de plus en plus de mois. Si au contraire, il fait trop 
de fautes, le niveau de difficultés n'augmente pas. 



Saisie d'un nouveau texte : il est 
possible de mémoriser un texte de 
treize lignes maximum grâce à un 
éditeur plein écran. Dès que les 
treize lignes de texte sont remplies, 
le programme revient automatique- 
ment au menu. 

Il est cependant possible de revenir 
à tout moment au menu en tapant 
simultanément sur les touches 
[CTRL] et C. L'ensemble des carac- 
tères d'imprimerie usuels peuvent 



être saisis, y compris les caractères 
accentués regroupés sur le pavé 
numérique. 

Il n'est toutefois pas possible de sai- 
sir des alinéas. 

Corriger un texte : à partir du menu, 
il est possible de modifier un texte 
en mémoire soit pour corriger une 
faute, rallonger ou raccourcir le 
texte. Attention ! Si l'on veut corri- 
ger un texte de longueur maximum 







(treize lignes pleines), il est néces- 
saire au préalable de supprimer au 
moins un caractère. On revient au 
menu en tapant sur [CTRL] et C. 
Entraînement : si un texte vient 
d'être saisi ou modifié, l'ordinateur 
va tout d'abord compiler le texte. 
S'il trouve des mots trop longs 
(vingt-cinq caractères), il affichera 
automatiquement le texte pour cor- 
rection. 

Le texte est tout d'abord découpé 
en mots. Chaque signe de ponc- 
tuation est considéré comme un 
mot. Deux mots séparés par une 
apostrophe sont considérés com- 
me un seul mot. 

Puis le texte est affiché, un certain 
nombre de mots étant remplacés 
par une chaîne d'astérisques com- 
prenant autant d'astérisques qu'il y 
a de lettres dans le mot à deviner. 
Losqu'on le tape, il est possible de 
le corriger par surimpression. Il est à 
noter que le programme néglige les 
espaces quand il compare le mot 
saisi au mot à deviner. Il est pos- 
sible à tout moment de revenir au 
menu principal en tapant simul- 
tanément sur les touches [SH1FT] 
etc. 

Sauvegarde-Lecture sur cassette. Il 
est possible de sauvegarder un 
texte sur cassette. Toutefois ce 
texte doit avoir au préalable été 



compilé en utilisant la fonction "En- 
traînement" du menu. 
Test. Il est possible de tester son sa- 
voir. Dans ce cas l'ordinateur n'af- 
fiche rien : ni astérisque ni mot, et il 
faut reciter toute l'auto-dictée en 
devinant chaque mot un par un. 
Traduction en siacnarf : nous vous 
laissons le soin de découvrir cette 
langue... 

Touches redéfinies 
du pavé numérique 



é 


ô 


ù 


Ç 





ê 












â 


è 


ë 


ENTER 



10 '#*##***##tt*#*#ti#* >la 

20 '| AUTO-DICTEE i >L6 

m mmmmm m :.>lc 

75 DIU carïi28i:l10DE kWINDOU #0,1. >TE 
4«,3,25:duree=600:INK y.l:M i,5:I 
I*: 2,9: If* 3,14:balai$=3PACE$i24):P 
APER 9:PEN 1: BORDER 4:WINDGM #2.1,4 
0,19,25:PAPER #2,2:UINDQM il. 1,49,1 
,2 :PAPEfi #1,9 

138 FOR 1=9 T0 5: PLDT 7,393-3#l:DRA ,>DC 
WR ?a,B,2:PLÛT 555, 393-3* 1:DRAUR 7B 
,0:NEXT:PRINT: CHRt (il7)+CHRt £5-3^ :T 
AG:M0VE 100,393:PRINT;"* * » AUTO 
-DICTEE # * * "::MGVE 102.392:PRIN 
Ti "* * * AUTO-DICTEE * * * "; 
135 PLOT 5W,5«,3:HaVE 102,390:PRI >PU 
NT; "# * * AUTO-DICTEE * * * ";: 
TAG0FF:PRINT CHRSt&lTH-CHRtlitf) 
14Ô CLS:6QSUB 2ily:WHILE -lî LÛCATE >MB 
1B.5:PEN 1: PRINT"H6N0":PRINT:PRI 

NT" Taper un nouveau texte 

"::PEN 3:PRINT;"N":PEN 1:PRINT 

îPfilNT* S'entraîner 8 l'auto-dict{ 

e "wPEN 3:PRINT:"E":PEN 1:P 

RINT:PRINT" Corriger le texte en c 

ours 

22È PRINT:PRINT" Sauvegarder un te >RH 

xte ";:PEN 3:PRINT; n S 

' :P£N 1:PRINT:PRINT* Lire un twtt 

e sur cassette "::PEN 3:PRI 

NT;"L" :PEN l:PftlNT:PRINT" Affiche 
r la traduction en siavnarf."::PEN 
3:PRINT;"A H :PEN hPflINT 
230 PRINT" Test sans affichage du >BK 



texte.. "::P£N 3:PRINT:"T i ':PEN 

1:LQCATE 3,22:PRINT"Tapez ia lettre 

correspondant" 
279 PRINT" ê votre choix: ":a*=' i ":WH >EF 
ILE aï="":aî=INkEY*:i€ND:a$=UPPEft*< 
al!:choi>f=INSTR( "NEC5LAT" .a*i:L0C 
ATE 18,23: PEN 3:PRINT a*:FEN 1:F0R 

t=l TG duree:NEXT:QN chois GOSUB 
450.379, 589 ,650.779, 1199. 1199:WEN 
D 

379 CLS:IF ne=9 THEN :LÛCATE 5. 5: F >TM 
RINT" Il n y a pas de teste en nimoi 
re.":F0R t=9 T0 duree+2:NEXT:CL5:RE 
TURN 

389 IF te*=9 THEN GOSUB 2295 /VT 
385 IF retour =1 THEN retour=0:RETU ;6v ] 

m 

399 IF te*=9 THEN DM motbiS'.nosiotJ >TÏ 

.arapinDmot; 1 

499 GOSUB 2549 m 

419 RETURN fâ 

459 IF ne=9 THEN GOSUB 1399 tLSE G >6L 

OTû 479 

469 ne=l: RETURN ,>LW 

479 CLS:PRINT:PRINT:PRINT:FRINT" V >XB 

□us ave: dîjë un texte en eimoire." 

:PRINT:PRINT" Confirmez l'effacerne 

nt lÛ/Nl." 

489 WHILE -l:aS="":WHILE a** u "ta**l M 

»:ë¥*:WEND 

499 aî=LOWEfi*iaîJ:n=INSTR("on",a*> >DL 

599 IF n=l THEN ERASE le*: IF tex=l >UM 

THEN ERASE mot$ .notbl* ,drap:tex=9 

519 IF n=2 THEN CLS:RETURN >VT 

529 IF n=l THEN GOSUB 1399:ne=l:RET >FH 
URN 

530 IF n=2 THEN CLS:RETURN >W 
540 WEND >CH 
589 CLS: IF ne=9 THEN :L0CATE 5.5:P *TQ 
RINT"I1 n'y a pas de texte en sîaoi 
re.":F0R t=9 TG duree*2:NEXT:CLS:RE 
TURN 

599 IF tex =1 THEN te^9:£RASE Kit* >RE 

,motblt,drap 

(M GOSUB 1360 >PH 

610 RETURN >t C 

650 IF tex=9 THEN CLS:LOCATE 5,10:P >UU 

RINT"Pas de texte coispili en mOnoir 

e":F0R t=l TO duree*2.5iN£XT:CLS:fiE 

TURN 

660 CLSi PRINT: PRINT: PRINT: PRINT" M >JD 

ettez une cassette dans le lecteur, 

":PRINT:PRINT" appuyez sur 

les touches ":PRINT:PRIHT " R 

EC et PLAY, puis appuyez sur":PRINT 

:PRINT" n'importe guelle tou 

che. " 

670 CALL !<BB06:LQCATE 16,i2:PEN 3:P >FR 



fiINÏ"Patience! il :PtN 1 : OPENÛUT "'die 
tee' 1 

689 PRINT#9 , nbmot 
699 FOR t=l TQ nnmot 
799 F-RINT #Y.mot*ltJ 
710 NEXT î 
729 CLÛSEOUT 
739 CL3:RETURN 

779 CLSîWHILE ne09:CL3: PRINT: PRINT ; 
:F'RINT:FRINT:FRINT:PRiNr Vous ave 
z due un texte en mimai re.": PRINT: 
PRINT" Ce texte va Ire etta 

:i.":PRINT:FRINT" Confii-me: T 

'tfaceflient tÛ/N;," 

'99 BHILE -3:at=" i ':rtrtILE aï="; • 
a*=INKErt;iMEND 

a*=LQWERïialj:n-INSTRr'o > 



n",a$) 
819 



IF n=2 THEN CLS:REÏURN 
IF n=l THEN ne=9: ERASE ! ;■ 
:G03UB 899:CLS:RETU 



t WEND ; 

i WEND 

B59 GOSUB 890:CLS:RETURN ; 

899 IF tex=l THEN tex=9:ERA5E »tb .- 
lî,drap,inotI 

999 CLS:PfiINT:fRINT:PRINT:FRINT:FRI ; 
NT" Mette: une cassette dans le ie 
cteur. SPRINT: PRINT: PRINT" appuve 
z sur la touche PLAY, Puis":PRINT:P 
RINTiFfilNT" appuvez sur n'im 

porte": PRINT: PRINT: PRINT" 

quelle touche. " 
919 CALL ^BB06:LOChTE 16.16:PEN 3:P > 
RINT"Patience ni :FEN 1 
929 DFENIN "Idictee" > 

939 INPUT *9,nbmDt > 

940 DIM motïinbmot! > 

959 FOR t=l TO nbmot > 

960 INPUT #9,mott(t) > 
979 NEXT:CL05EIN: > 

989 DIM leîs 1009) : le=l >; 

990 FOR t=l TO nbmot > 
FOR n= 1 TO LENimotJ(ti) >1 

1010 leïlle)=HID$iiiotîtti.n,l! > 

1029 le=le*l >] 

1039 NEXT n >| 

1940 le*(le/=" ":le=le+l >■ 

1050 NEXT t >| 

i960 nl=le:le$(nl+l)=" " >| 

1979 DIN motbU(nbmot), drapïnbaat) >l 
:tex =l:ne=l 

1080 CLSîRETUftN >| 

1100 IF tex=0 THEN CLSiLCCATE 5,10: >] 
PRINT"Pas de texte coapiK ë tradui 
:F0R t=l TQ duree*l.B:NEXT:CLS:R 
ETURN 



111» CLS >K 

1129 GOSUB 2448 >WG 

11» a*="":WHILE a$="":a*=II#CEY*:WE >EE 
ND 

1148 as >ZF 

1158 RETURN )FA 

HW CLS >AA 

1288 IF tex=8 THEN GOSUB 2295 >WD 

1218 IF tBX=6 THEN DIM motbl*(nbmot >6M 
i.draptrsbmct) :tex=i 
1220 TESTe =1:GQ5UB 2540 >TF 

1230 TESTe =0 >JB 

1240 RETURN >FA 

1300 m le*(520):nl=l:Ie*<li=° " >ZD 
1360 CLS :PEN 2:L0CATE 1,21:PRINT"S >LC 
aisisse: votre texte":FRINT"Longueu 
r naxinuffl: 13 lignes"::PRINT"Quand 
vous ave; termini appuyez ":PRINT"s 
ur CTRL et sur C U :PEN 1:LXATE 1,1 



1370 FOR n=l TO nl:PfiINT;le*(n);:NE 


<TF 


XT:PRINTi " " 




13B0 :li=l:co=l:SQSUB 1970:trait=0 


>DK 


1390 trait=«:q=0 


>LN 


1430 WHILE -1 


>F6 


1440 c$=INKEYS 


■«F 


1450 WHILE c*="" 


>BS 


1460 IF INKEYi62)=128 THEN trait =1 


m 


:GQTQ 1590 




1460 cï=INKEY$ 


m 


1490 WEND 


>jj 


1500 c=ASCIc$i 


>PF 


1510 IF c>239 AND c<244 THEN GOSUB 


>DL 


1620 




1530 IF INKEY(16K>-1 THEN recu=0:6 


>LJ 


OSUB 1S38 




154» IF INKEYOTKM THEN rscu=l:6 


.LW 



1541 IF nl>516 THEN GOTO 1590 ) 

1544 IF <c>31 AND c<127 OR c=128) A î 
ND trait»* THEN GOSUB 1740 

1545 IF nl>51B THEN GOTO 1590 ) 
1550 WEND ) 
1590 CLSjRETURN ) 
1620 liÔ=li:ccw=co ) 
1630 nole=Ui-l)*40+co > 
1640 LOCATE co,li:PRINT let(nole) > 
1650 IF C=240 THEN LI=LI-1 > 
1660 IF C=241 THEN LI=LI+i > 
1670 IF C=242 THEN co =co-l > 
16B0 IF C=243 THEN co=co+l > 
1690 nole=(li-i)*40+co > 
1790 IF ttolftO OR noie >nl THEN li= > 
110 :co=co0 iPRINT CHRH7) 

1710 GOSUB 1970:RETURN > 

1740 noie =<li-i)*40+co:IF nole<l > 
R nole>nl THEN RETURN 

1750 nl=nl+l:FQR n=nl Tû nole+1 STE >, 
P-l:le*(n)=leJln-l):NEXT 
24 



1760 le*(nole)=cï:LOCATE co,li:PRIN >JV 

T c»; 

1770 FOR n=nole+l TO ni >RV 

1780 PRINT;let(n); >KN 

1790 NEXT >MG 

1800 c=243:G0SUB 1620 >PH 

1810 fiETURN >FD 

1830 nole=ili-l)*40+co-recu >WX 

1640 IF nola=nl AND recu=8 AND lel( >QB 

nl)= u " THEN PRINT CHR$ 17): RETURN 

1850 IF nole<l Ofi nole>nl THEN PRIN >«. 

T CHR$(?):RETURN 

1860 IF reçu =1 THEN eo=co -1:IF co >YP 

<1 THEN li=li-l:co=48 

1870 LOCATE co.li >MA 

1880 FOR n=nole TO nl:lel(n)=Ie*<n+ >CA 

IhPRINT let(n);:ICXT 

1890 IF li=0 THEN li=l:co=l >VY 

1906 nole=(li-l)*40+co >QZ 

1910 nl=nl~l:ieSlnl+l)=" ":le$(nl+2 >FV 

1920 GOSUB 1970:i-ecu=0 >RE 

1930 RETURN >FG 

1970 IF co>40 THEN co=l:li=li+l >fl< 

1980 IF co<l THEN co=48: li=Ii-l >YW 
1990 IF 1K1 THEN h=l >PQ 

2000 IF U>24 THEN li=24 >RH 

2010 nole=Ui-l)*40+co >QR 

2020 IF no!e>nl THEN FOR n=l TO 2* >JX 
:PRINT CHfiî(7):N£XT:GOTO 2060 
203« PRINT;CHflt(24) >NK 

2040 LQCATE co.liiPRINT letlnolei >CT 
2050 PRINT;CHRt(24i:RETURN >WL 

2060 Co=co-1:SOSUB 1970 >RE 

2B7fl RETURN >FC 

2110 SYMBOL AFTER 64:SYKB0L 125,660 >ZA 
, M«, ^3C, iùà, i7E, fe60, &3C:t:£¥ 135,CH 
R*(123):SYMBQL 123,66,68, 63C, 666, 67 
E,668,63C:kEY 128, CHR$(125):SYHBDL 
64 ,660,610,678, 6C,67C,6CC, 676 
217Ô KEY 129 ,CHRÏ(64):5YMBQL 92,60 >CH 
,60,63C,666,660,63E,68,61B:KEY 132, 
CHR* (92): SYMBOL 124,630, 68,!<66,666, 
666, 666, 63E: KEY 137, CHRÏ(124):SYHB 
X 94,618, 624.63C, 666, 67E,660,63C:K 
EY 134, CHR* (94): SYMBOL 9S,*l,ft2,M, 
68,610,620, 640,680:KEY 131 , CHR* (93 
1 

2180 KEY 136, CHR* (91): KEY 133,CHfi*i >FU 
95): KEY 130 ,CHR*(126J;KEY 138 ,CHR 
*U28):SYHBGL 91, 618, 624, 63C, 666, 66 
6,&66,63C:SYHBQL 93,MS,fe24,&7e,È:C, 
67C,6CC,676 

2190 SYMBOL 95,618,624,666,666,666, >Q6 
666,63Ë:SYMB0L 126, 118,124,638, MB, 
618,618, 63C:SYHB0L 128,666,0,630,66 
6,67E,660,63C 

2260 RETURN >FD 

2295 CLSîLOCATE 16,6:PfiINT; u PaUenc >GR 



e!":LGCATE 15, BiPRINTîMe compile" 

2300 DIM motKnl/2.5+20): >TK 

2310 i=0:n=0 >AJ 

2320 i=i+l >KD 

2330 WHILE -1 >HA 

2335 IF i>nl/2.5+20 THEN LOCATE 6,1 >LV 
0:PRINT"Manque de place en a{moire. 
":L0CATE ll,i2:PRINT"Veuillez racou 
reir'iFOR t=l ÎO duree*2.5:NEXT:ERA 
SE nat*:SQSUB 588 :retour=l: RETURN 
2340 n=n+l >NA 

2360 IF n>nl THEN IF mortlilO" >EW 
"THEN nbnot=i :RETURN:ELSE nb«iot=i- 
1: RETURN 

2370 IF le*(n)=" * THEN IF aott >DG 
(i)="" GOTO 2340 ELSE SOTO 2320 
23B0 IF INSTRl ",.:;?!+[)" .le* >JG 

(n))<>0 THEN IF nat*(ii="" THEN eot 
*<i)=le* m : GOTQ 2328:£ 

LSE i=i+l:mot*lii=le*(n):BOTQ 2320 

2390 mo«(i)=aot$ii)+le5tni >WC 

2391 IF LENimotî(i>)>30 THEN CL >YT 
SiLOCATE 5,10:PRINT"J'ai trouvi un 

mot tr)s long.":LOCATE 6,12:PRINT"I 

1 doit y avoir une erreur. ! ':LOCATE 

6,14:PRINT"Je vous propose de corri 

ger. ":FDR t=l TO duree*3.5:NEXT:Efi 

ASE mott:G0SUB 580: retour=l: RETURN 

2400 WEND ) 

2440 FOR i=l TO nbmot > 

2450 vermot$="" } 

2468 FOR j=0 TO LENmottiiii-1 > 

2470 ver(nott=vermot*-t-MI&t(fflot$(i), > 

LEN(fnotï(i))-j,l) 

2480 NEXT > 

2490 PRINTjvermotî:" *; > 

2580 NEXT :RETURN > 

2540 CLS: IF ne=0 THEN LOCATE 9,10:P ?JE 

RINT"Pas de teste en mÎBoire":FOR t 

=1 TO ûuree*1.6:NEXT:CLS:RETURN: EL 

SE LOCATE 5,10:PRINT"vbulez-vou5 re 

voir le texte (Q/N)?" 

2550 a$=INKEY$:WHILE a$="":a*=INKEY >QC 

1:WEND :CLS 

2560 IF L0WERÏ(a*)="o h THEN GOSUB 2 >RQ 

580 :L0CATE.l,23:PftINTTour continu 

er appuyez sur une touche":CALL ^BB 

06 

2570 CLS:60TÛ 2600 >MK 

25B0 FDR t=l TO nbmot:drap(t)=0:NEX >FS 

T 

2590 GOSUB 2978: RETURN >RJ 

2680 IF teste =1 THEN GOTO 2700 >XT 

2610 WHILE tex<>0 >MD 

2620 LOCATE 1,10 :PRINT;" Voulez-vo >YY 

us reprendre 1 entra inement ":L0CAT 

E 1.12:PRINT:" 18 ot vous l'avez a 



rr'U? (0/N)" 

2630 reprise=0:a*="":WHILE a*="":a* >, 
=INKEY*:WEND:a*=LÛWER*<a*) 
2640 IF a*= u o" THEN reprise =1 ELSE >| 
reprise =0 

2656 tex=6:k£ND >l 

2666 tex=l:CLS >i 

2670 ' y 

27W FOR i=l TO nbMt >l 

271» KEN (mot* ( i ) > >l 

2720 IF teste=l THEN notbl*<i>=ST >l 
RINGÏd," " ) ELBE motbl*(i)=STRING 
*<l, u *") 

2738 NEXT >l 

2770 FOR i=l TQ nb«it:drap(i)=0:NEX >l 
T:IF repnse=l THEN GOTO 2860 
2786 niv =0:reprise =0 >l 

27TO niv =niv +i M 

2800 IF nbmi <5 THEN fac=5 ELSE fa >. 
E = nbmot 

2816 ndev =2+ niv * INT (fac/5) >\ 

2826 IF ndev >= nbmot-2 THEN fin = >l 
1 ELSE fin =6 
2836 IF -fin =1 Dfi teste=l THEN ndev > 

= nbsot:F0R i =1 TÛ nbmot:drapd) 
= i:NEXT iiSOTO 3656 
2876 te» =TIME >l 

2BB6 FOR i =1 TD ndev > 

2896 j= RND(2) * nbtmt >! 

2966 IF drap(j) = 1 THEN 2896 > 
2916 drap(j) = 1 >' 

2926 NEXT i > 

2936 GOTO 3656 >l 

2976 LDCATE 2,1 

2986 FOR i =1 TO nbmot ? 

2996 IF drap(i) = 1 THEN rnnot* =mo > 
tblîli) ELSE amotî = mot*(i) 
3060 PRINT;mmotî+CHRS<32): > 

3616 NEXT i > 

3626 RETURN > 

3656 pntma;i = ndev * 3 + 3 > 

3666 prit = pntma:! > 

3676 cpteur =6 > 

3686 cpteur = cpteur + 1 > 

3696 IF cpteur > nbmot THEN GQSUB 2 > 
976:S0TO 3346 

3166 IF drap (cpteur) = 6 GOTO 36B6 > 
3116 PRINT CHR*(7i:60SU6 2976 ï 

3126 essa = 6:O.S #2: > 

3136 essa = essa + 1 ? 

3146 PEN #2,1:LQCATE #2,1,1 : PRINT > 

#2, "Que proposez-vous pour le pren 
1er mot " 
3156 IF teste=l THEN LOCATE #2,1,2 > 

: PRINT #2, " qui manque itrois es 
sais; " 
3166 IF teste=6 THEN LOCATE #2,1,2 > 

: PRINT #2, "remplaci par des ": C 
HRî(34);CHRï(42);CHR$l34); u (trois 



essais! " 

3176 LOCATE #2,4,7;PRINT#2, "(Pour r >QA 

evenir au nenu tapez #) 

3186 LOCATE #2,1, 2 +essa :PRINT#2, >YT 

; "Essai no";essa; 

3196 BOSUB 5616 >XB 

3266 IF a*="t" THEN CLS :RETURN >ZB 

3216 n=l:WHÏLE carltnK)"" AND n<24 >BA 

3215 IF car*<n)= u " GOTD 3225 >VL 
) essa*=essa*+car*(n) >TL 
3225 n=n+l:WEND >GJ 

3236 IF essa* O «oti(cpteur) THEN >PT 
3286 ELSE 3246 
324$ LOCATE #2,14,6 :PEN #2,3:PRINT >YA 

#2, "EXACT !":F0R t=l TO 86:NEXT:PE 
N #2,1 

3256 FOR t=l TD durée :NEXT >WH 
3266 drap (cpteur) = 6 >PH 

3276 GDTO 36B6 >NA 

3286 pnt = pnt - 1 >DJ 

3285 LOCATE #2,12, 2 +essa:PRINT#2, >JT 
ibalait 

3296 LOCATE #2,12, 2 +essa:PRINT#2, >HC 
; essai 

3366 IF essa < 3 THEN LOCATE #2 , 1 >PC 
6,5 : PRINT #2, "FAUX!" :F0fi t=l TD 
566: NEXTiLOCATE #2 ,16,5 i PRINT # 
":G0T0 3136 
:LQCATE #2,10.6 :PRÏNT #2,"La HQ 
solution est:*j 
3320 PEN#2,3:PRINÎ #2, motl(epteur> >FU 

: FOR t=l TO durée :NEXT: 
3336 GOTO 3256 >MG 

,346 IF pnt < ndev * 3-3 THEN GOSU >PU 

S 3420: GOTO 2870 

3350 IF fin <>1 AND teste <> 1 THEN >XB 

6QSUB 3550:6OTQ 2796 
3-366 CLS:PEN 3:LQCATE 5,lô:PRINT"Br >YQ. 
avo vous avez tout trouvï ! " 
3376 FOR t=l TO 3*duree:NEXT;PEN 1 >ffll 
3386 CLS: RETURN >LT 

3420 CLS #2:L0CATE #2,4.2:PEN #2,1 >ZM 
3430 RANDQMIZE TIME M. 

3446 chx=INT(RND(2>*7) >RM 

3456 ON en* GOTD 3466,3476,3480.349 m 

,3506,3510,3520,3536 
■ 3466 PRINT#2,"Ca ne va pas fort... >UU 
":G0T0 3540 

3476 PRINT#2."Hum il faut faire att >GD 
ention":6ÛTQ 3546 
3480 PRINT#2, "Appliquez-vous un peu >AE 

":S0T0 3546 
3490 PftINT#2, "Un petit peu d'attent >Ci 
ian":G0T0 3540 

3560 PfiINTS2,"vous n"tes pas tr)s >KF 
en for»e":G0TQ 3546 

3516 PRINTS2. "Vous faites beaucoup >MC 
de fautes":G0T0 3546 



3526 PRINT#2,"J'ai 1' impression que >BU 
vous *tes fatigul":60TQ 3546 
3536 PRINTS2, 'Vous vous trompez sou >£U 
vent": RETURN 
3540 FOR t=l TO 3*duree:NEKT:RETURN >EQ 

3556 CLS #2:LOCATE #2,4,2:PEN #2.1 >ZR 

3560 RANDOMIZE TIME >PQ 

3570 chx=INTlRND(2)*6)+l >TH 

3580 ON chx GOTO 3590,3660,3610,362 >R9 

0,3636,3646,3656 

3596 PRINT#2,"I1 y a du progrH ... >AG 

":G0TO 3666 
3666 PRINT#2, 'C'est bien. On contin >CQ 
u.. ":S0T0 3660 

3ol0 PRINT#2, "Ca progresse. Ban tra >SH 
vail. ":G0T0 3660 

3620 PRlNT#2,"vous aurez bientôt 20 >HU 
sur 20! ":G0T0 3666 

3636 PRINT#2,"Bon travail, vous vou >TF 
s appliquez! ":G0TO 3666 
3640 PRINT#2, u Je suis content de vo >BW 
us!":G0T0 3666 

3656 PRINT#2, "C'est bien. Bon trava >CN 
il. ":G0TO 3666 
3666 FOR t=l TO 3*duree:NEXT:REÎURN )EU 

5616 PAPER #2,1:PEN #2.6 M. 

KS8 FQfi n=l TQ 24: car* (n)^": NEXT >BJ 
5036 po =1 :essa*="" M. 

5635 PRINT#2,;CHR*I24):L0CATE #2,11 >GR 
+po,2+e5sa:PRINT#2,: il ";;PRiNT#2,;L 
HRK24Î; 

5646 WHILE -i; 3*="" M 

5656 WRILE a*="" :a*=INKEY*:h€ND >AE 
5666 c=ASCiat) >PJ 

5676 IF E=13 OR c=163 THEN PAPER #2 M 
,2:PEN.#2,1: RETURN 
5680 IF c=242 THEN nov=-l:G0SUB 513 >CP 



5696 IF c=243 THEN bqv=+1:E 



3 513 >CP 



5166 IF (c>31 AND c< 127 OR VîW) T > 
HEN car*(po)=a*:mov=+l:GQSUB 5136 
5110 WEND > 

5136 IF (po =1 AND mov=-l) OR i car > 
*<pû)="" AND auv =+1) THEN PRINT ;C 
HR* (7);: RETURN: ELSE LOCATE #2,ll+po 
,2+e5sa:PRINT#2, :carî(po J:po =po 
Hnov 

5141 IF po;24 THEN po=24 5 

5142 IF car*lpo)= 11 " THEN PRINT#2,;C ; 
HR*(24):L0CATE #2,lltpo,2tessa:PfiIN 
T#2,; u "::PRINT#2,;CHR*(24);:B0T0 5 
166 

5150 PRINT#2,;CHR*(24):L0CATE #2,11 ; 

+po,2+essa:PRINT#2,;car*ipo!;:PRINT 

#2,:CHR*I24) 

5160 RETURN i 



mnnoiR mauDiT 

Pascal DOBIGEON 

JEÛf 



Préparez-vous à vivre une aventure de terreur 

dans un manoir hanté. 
Une vingtaine de salles mystérieuses attendent 

votre sagacité et votre logique. 

Parviendrez-vous à découvrir l'horrible secret 

que recèlent les murs anciens ? 

Bon courage ! 




10 le HANOIR MAUDIT 

2e 'Pascal DOBIGEON' 

39 Amstrad CPC 464' 

46 'PRESENTATION 

50 DEFINT a-i:MQDE 1: BORDER 15 

26 



66 PLOT 28*, 60,1: FOR ins=l TO 203:R ffi> 
EAD int.iy 

70 IF UPPEfl$(LEFTÏ(mî,l))="P" THEN >NH 
PLOTR WL(MID*<in*,2!),iy F15E DRA 
HR YALtin*J,iy 



80 MEXT >W 

90 DATA 6, 190,350,0, 6,-190, -350AP >JT 
6,190,56,50,30,0,P70A15M,50,-50 
,p-276,20,0,40,10,10,P-10,-50,50,6, 
0, 40, 10, 10,P-10,-50,16, 10,0,46,-50, 

0,F'-ie,-i0,5e,0,P2é,-i0,-i0,e,P6,-2 

49,0,70, 10, 16,P-16,~10, 70,0,6. "76,P 

-60,70,0,-70,PM,B0.70 i e,0,-ay,P-10. 

7t),10,10 

100 DATA P-B0,-80,-80,-S0.F'160,B0,- >GE 

40, -66, P-140, 240, 80,0, 0,-60, -66,0, 6 

,60,F'0,-60,30,16,0,50,P-5,-45,-25,- 

10,P25,10,0,45,P0,-20,-25,-5,P0,-10 

,0,5,P45,36,0,-46,-5,-5,40,0,P6,5,- 

35,0,P36,0,0,40,P-5,-l5.P95,-165,16 

,0,0,-5,-5,0,P-5,5,0,-5,5,0,P105,12 

5,-76,0 

110 DATA â, -60.70, 0,0, 60,P-30, 0,8,- >KN 

6Ô,P-10,0,0,60,P-30,-30,30,0,P18,0, 

30, 0.P-225, 90,50, 0,P-50, 16,50,0, P-5 

0, 10,50,0, 10, 10,P0,-10,-10,-10,P0.- 

10,16,10,P-35,-28,0,40,P-105,-236,i 

46, 0,PB6, 6, 136, 0,P0, -16,-130, 0.P-80 

, 0,-140,0, P20, 10, 0,-26,P20,6,0, 26, P 

20,6,0,-20 

120 DATA P20.0,0,20,P26,M.-20.P20 >RN 

, 0,0,26, P126, 0,6, -20, P26,0,0,20,P20 

,0,6, -29, P20,6,6,20,P20, 0,6,-20, P26 

,9,6,20,P-72,8â.6. 60, P-418, -236.0,6 

6, 30 , 36. 60 , 0, P-90 , -96, 90 , 6, 6 , 60, -96 

, 0, P90, 0,30, 36, -30,0,P30,0, 6,-66, 

0,-36,P-2,6B, 16, 16,-70,0,-18,-18, 

,0,P-52,1B 

136 DATA 0,-18,P-34,-22, 90, 0.30.3 

P30,lÔ7,-110,0,0,-90,P110.-16,-30,6 

,P-80, 100,20,20, 90,6, P-110,-20 

0,0,-100,40.0,P-30,100,0,-100,P6.70 

,5B,0,P-50,-46.56,6,P-30,69,0, 

P26, 10,6, 96,P-50, 0,-56,0, 0,-160, 56. 

0,P0, 30, -50, 0,P0, 46,50,0, P-26,30,È 

-100 

140 DATA P-20, 0,0. 100, F-10,0, -60,6, >¥A 
P0,-100,60,0,P0,106,-20,20,-46,0,Pl 
16,-80,P-2,0,P2,2,P-2,0 
156 PLOT 10,280,2:DRAW 10,396:DRAW HJ3 
276,390:DRAW 276,280:DR6W 10,288lPL 
OT 8,2B4:DRA« 8,386:PL0T 14,392:DRA 
W 272,392:PL0T 278,386:DRAW 278,284 
:PL0T 272,278: DRAW 14,278 
160 PEN 3:L0CATE 2,2:PRINT"L£ HANOI )ÏJ 
R MAUDIT U :PEN 2:L0CATE 5,4:PRINT"- 
par -"iLOCATE 2,5:PRINT"Pascal Do 
bigeon":LOCATE 6,7:PRINT"An 1987" 
170 FOR bus=1 TO 45:fiEAD h,d:S0UND M 
7,h,d:N£XT 

180 DATA 478,25,358,25,358,25,358,2 >DC 
5,319,25,478,25,478,25,319,25,478,2 
5, 478 , 25 , 264, 25, 358, 25, 239, 25, 239 , 2 
5,284,12,239,12,264,12,239,12,253,2 



5,319,25,253,25,253,25,319,12,253,1 

2,319,12,253,12,284,25,0,25,239,25, 

179,12,196,12,213,12,239,12,253,12, 

284, 12 

190 DATA 239,25,253,25,319,25,379,1 >Afi 

2,358,12,319,12.284,12,253,12.239,1 

2,358,5* 

200 FOR pau=l TQ 5000:NEXT Nil 

210 nl=23:no=52:nv=14:nd=14:ljo=21 >DH 

220 DIfi liï(nl),sorinl,6),ob*(no),o m 

bjï!nD!,ob(noi,pe(no>,ver$(nv),dr(n 

di 

230 'VUS/ES >RF 

240 DATA ËXfirlme.PRENds.POSE.OUv'Re, S>FH 

LfTILise, DETRuis, REMFlis,B01S, TUER. L 

IRE,ATTftche,G0UPe,MET5,A35Q(i>me 

250 OBJETS >RH 

266 DATfi un mur de pierre,itiur,l,0,u >BV 

a autel de sacrifice pmjssiereuK.au 

te, 1,0, un zombie assoiffé de sang,: 

omb, 1 , 0, votre ancêtre. ance, 8, Ô,une 

grande table en chêne sculpte, tabl, 

2,Ô,une tapisserie avec des inscrip 

lions, tapi, 2,6 

27« DATfi une cuisinière en mauvais >BQ 

état. cuis, 3,0,un epteu en ter rtxril 

le,epie,3,H,beaucoup de livres sur 

l'exorcisme, livr, 4,0, quelques parc 
rtBmins,parc,4,2,un lit démesure, lit 
,5,6,des explosifs sous le lit.expl 
,5.0. une grosse masse a long manche 
,mas5,0,15 

2B0 DATA une vieille armoire, armo.t >CP 
,'j.une porte ouverte au nord, port, 4 
,0,un tableau terni, tabl, 7,0. un jeu 

d'échecs sur le sel, jeu.7,8,un nai 
n surpris dans son somseil.nam,8,y 
,1a porte d : entrée ouverte. port, 8,0 
,un coffre en fer,cotf,9,{i 
2vâ DATA un casque de la 1 ère guer >XW 
re mondiale. casq. 0.7. de vieilles Ph 
otos, priât, y,2, un cadenas ferme. cacie 
,0,5, un secrétaire en dois poli, sec 
r,10,ô,une cle.cle,0,2,des tiroirs, 
tiro,0,0,une fiole contenant un phi 
ltre,fial,12,6,une cheminée noircie 
,chem, 12.0 

366 DATfi un passe-partout,pass,0,2, >DR 
une table de chevet, tabl, 13,0.deux 
lits de petite taille, lits, 13,0, une 

armure restaurée, ahnu, 14,0, une por 
te fermée au sud, port, 14,0, des tail 
es d araignées au plafond, toi 1, 15,0 
.une baignoire sale,baig,15,0 
310 DATfi un rocher couvert de (souss >PP 
e.roch, 17,0, une gourde en peau.gour 
,17,5,1e mur d'enceinte,mur,18,6,un 

petit bâtiment en ruine.bati. 18,6, 
un sécateur, seca.l?,5,un râteau, rat 



s, 19, 12, une pelle, pell, 19, 12,un pui 

ts profond, puit, 20,0 

320 DATfi un banc en bois pourri, ban >JT 

c, 20,0, une corde attachée, cord, 0,9, 

la grille c entrée fermée, gril, 21, 6 

.beaucoup 3e grands arbres, arbr, 21, 

«.beaucoup o arbres, arbr, 22,0, un ch 

emm au sud, chem, 22,0, la grille d e 

ntree ouverte. gril, 22,6 

330 DATfi la porte d'entrée fermée, p >rlP 

ort,23,0,la grande façade, faca, 23,0 



340 'LIEUX ; 

350 DATA dans la cave, 0, 6,0,0, 3,Ô,d ; 
ans la salle a manger,9,0,7,3,0,0,d 
ans la cuisine.6,0, 2, 0,0,1, dans la 
bibliothèque, 14,0, 12, 5, 0,0, dans une 

chambre a coucher, y, 0,4, 0,0,0, dans 

le grenier, 6,6, 0,0, 0,16, dans îe sa 
lûn, 0,0, 0,2, 0,0, dans rentrée, 0,0. 2 
3,9,0,0 

360 DfiTA dans un couloir, 11, 2, 8, 10, , 
0,0, dans le bureau, «,0, 9,0,0,0. dans 

l'escalier, 0. 9,6, 0,16,6,dans la ch 
ambre d'amis, 0,0,6.4, 0,6,dans une c 
hamDre a coucher, 0,0, 6,14, 0,fj,dans 
un couloir. 16.6,13, 15, ô, 6, dans la s 
aile de bains. 0,0, 14, à, 0,0 
370 DATA dans un escalier vermoulu. ) 
0,14,0,0,6, il, devant une petite sou 
rce, 26, 0,0, 18,6,0, dans un jardin en 

friche,0,6,17,19,0,â,dans le batim 
ent. 0,0,ia, 6,0,0, dans un sous-bois, 
22, 17, 0,6,0,0, sur un chemin forssti 
er, 0,0, 0,0, 6,0 

380 DATA sur l'allée prmcipale,&,2 ; 
0,21, 23,0,0, devant l'entrée du mana 
ir, 0,6,22, 0,0,0 

390 DIRECTIONS ) 

m DATA le Nord, le Sud, 1 "Ouest. 1 E ';■ 
st. le haut, le bas 

416 INTRODUCTION ) 

426 CL5:60RDER 10:PEN 3:L0CfiTE 12,1 ) 
:PRINT"Bon Séjour dans le":FRINT TA 
6il3)"ÎIAN0IR MAUDIT !" 
430 PEN 1:PRINT:PRINT 5TRINGÏ14Ô, 15 , 
2) 

440 PEh 2:FRINT" Vous avez ia sur ; 
prise de recevoir unelettre d un on 
cle éloigne qui vous legueune mai sa 
n très ancienne." 

456 PRINT" Mais vous apprenei ega ';- 
lement gue ce petit manoir a toujo 
urs eu une histoire mouvementée," 
460 PRINT" Un de vos lointains an > 
ce très y a disparu et on dit gu 
e cette habitation est hantée !" 
476 PRINT" Sans prendre en compte > 

ces avertissements, vous 



décidez de visiter votre nouvelle 

propriété." 

480 PEN 1:PRINT:PR1NT 5TRING*(40, 15 >FD 

496 FOR i=l T0 nv:READ ver$li):ver$ >UD 
(i)=UPFERîiLEPT$(ver*lii,4i!;NEXT 
560 FOR Dbjsi TD no:READ abîiabji.o >FT 
bj$(obj),abiobjj,pe(obj):objtiobj)= 
UPPER$iobj*tobj!);NEXT 
510 FOR U=l T0 nl:READ liStiii : FOR >ZF 
dir=l T0 6:READ sor(li,dir):NEXT:N 
EXT 

■RH 520 FOR dir=l TÛ 6:READ dir$idiri:N >FW 

m EXT 

530 PEN 3:INPUT " Voulez-vous les ,'MC 
instructions ";repS 
546 IF UPPER*(LEfT$(reP*,l))= u O" TH >RK 
EN 566 ELSE 676 

550 'INSTRUCTIONS >TA 

560 MODE 1 : BORDER 5:PEN 3:lOCATt 15 >FX 
,1:PRINT" INSTRUCTIONS" 

VD 570 PEN 1:PRINT:PRINT STRINGÎ140.15 >FD 
2) 

590 PEN 2:PRINT" Dans cette avent >HH 
ure, chaque lieu est decrit;nutre s 
on nom, vous lise; les objets s' 
y trouvant et les directions perm 
ettant de sortir du lieu." 

UF 590 PRINT" Pour vous déplacer, vou >TW 
s devez uniquement taper il 
luttais ae la direction souha 
itee. " 

600 PRINT" Pour indiquer vos acti >NL 
ons.vous devez utiliser un verbe se 
pare de l'objet par un seul espace. 



olô F'RINT" Le verbe. comme l'objet /FR 
.doit être écrit avec 4 lettres 

minimum. " 
620 PRINT" Je comprends aussi des >UJ 

commandes de Slettrés rrunimum oeva 
nt être utilisées seules: INventai 
re.VERbes, Instructions, SAUvegarde 
.CHfirgement et FIN," 
ù30 PEN 1;PRINT:PRINT STRINGt(40,15 >FA 
2) 
640 PEN 3:PRINT TABU0»"Appuyez sur >AT 

une touche" 

656 WH1LE INKEY$="":WEND >UE 

660 'AFFICHAGE >TC 

670 CLSîINK 2,9:HIND0W *0. 1,40,17,2 >EL 
5:WIND0W 11, 1,46,1, 5:WIND0W #2,32,4 
0,7,15:WINDOW #3, i,36,ù,16:PAPEfi 13 
,2:B0RDER 5:G0TQ 696 
686 PRINT: IF an=Ijû THEN 740 JWZ 

696 ah=ljo:0N Ijo B03UB 3786,3660,3 >PK 
810, 3820, 3856, 3BB0. 3890. 3910, 3930,3 
956,3970,3990,4010,4046.4060.4680.4 
U0,4130,4150,4160,4190,422i3,425Ô 
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1050 F-RINT #9.ïjo:REST0RE U90 m h 

106* FOR 1=1 TQ 24:REAiJ oojiFftiNT * Tv 
9.oD5i.Qbj;;PRINT *v,DD,iïiob.iî : PRINT 

f?,QBit&$JifOT 
1070 FOft i=ï TG 3:REAI; U.dir:FRINT ?bL 

#?,sorui,dir!:NEXT 

18BÔ FOR dra=l TO na:PRINT #9.dr<cr .>lk 
a!:NExT 

10% ÛLÛSEOUT: PRINT' Sauvegarde terra >F_w 
înee.^GOTû 080 

iiwv) THAPÛEIIENT , £ 

111© IF LEFTÎirep*,3K>''CriA" THEN 1 /DE 
200 

1120 PRM:PRINT"Nom de I état au j >fii 
eu a charger ...":5TRINGti9.Ëj;:I 
NPUT repï:IF LENireptml THEN PRIN 
T"£e n'est pas possible ! " : GDTO 112 



m CLS #3:MûvE «, i44:ûRAh MIS 
BRAW 473.318: Dfiiw 47â,i44:DftAW ê 



?Ï0 READ tDt.is, iy:PLÛT" i;;.iv.i:FÛR :Ht 
ltts=i TQ tot:REA& înî.sv 
720 IF UPPERSiLEFT*Un$,l,->="P" TriE ■: PM 
N PLÛTfi VAL(riID$unf.2jMv ELSE DR 
flWR VALunîj.iv 

730 NEXT >EF 

74» CLS UtFEN #1.3 >LA 

750 PRINT #l,"vous êtes ^iiïûjûi: ;JG 

760 PEN #l.i:F'RlNT *i,*¥aus voyez " M 

::imp=» 

770 FOR 1=1 m no: IF obli) Oijo THE .P* 

N Ë00 

780 IF PQSt#U-HSf-iofa*til#/« THEN ?JÏ 

F'RINT 11 

790 iifiP=-l:FPÏNT fti.obtii.'i f ', "; ïil 

800 NETTilF NOT imp THEN F'R'INT #1." >RW 

rien de particulier. " ELSE PRINT *1 

,0ffi*î8îi s ." 

810 CLS #2:PtN 12,1 >L¥ 

820 PRINT #2. "Sorties vers :":PRIN >0T 

T #2: imp=0 

83B FOR dir=l TO ù: IF sorUiQ.dirK >RH 

M THEN is>p=-l:PRINT *2.dir$idir< 

B40 NEïTilF imp=y THEN PRINT #2. "nu 

lie part." 

B5& IF Uo=9 AND dr(5i=0 THEN mor*= 

"Yr aftva ynapr ha cbvtaneq qr y rag 

err dhv ibht gbhpur ra cyrva pbrh 

e ni :60TO 1480 

B60 IF ljo=9 AND dr\5)=-i AND LENir , 

epî)=l AND rep*0"P THEN morS="Yr 

anva n ercevt poatpvrapr.vy ynapr q 

r y ' rager r ha cbvtaneq dhv ifahf ghr 

arg !":BÛTO 148» 
879 IF ljo=li AND rep*="B" AND NGT : 
dr(14! THEN so=l:i«or$="Ra qr-fpraqna 

28 



ï: jRË 9 '■' ftpnvvre. har znepu.r prqrrq ibn-t 
14 ibnt oevtrm yn qrqr na crh cv.nr on 

f (J :SGTG 1480 

888 PEN 3:lDlATE 1.25: INPuT "Sue vo m 
UÏBZrmi& taire ,, ;t'ePt:recl=iJF'F , EF;n 
repïliPEN 1 

m IF Ijo=3 AND rep$= :i B" THEN bÛSU >GN 
B 3720 

900 IF LENlrepÎJ/1 THEN 950 >UU 

910 a=IN5TRr , NS0EHB\repï;:IF a=8 T >¥F 
HEN F'RINT"Ce n'est pas une direct îc 
n '":GQT0 680 

920 IF sortljo.aK/S THEN I,;o=sorU ,>uC 
jo,a):PRINT s 'D accord. ":G0Tû aG» 
930 PRINFAucun chemin n v conduit >Z& 
! "rSÛTÛ 680 

940 'INVENTAIRE }JQ 

950 IF LEF7*(rep$.3K;>"INv" 1 THEN 10 ,-DN 

20 

9ùb FOft obj=l TO no: iF obiob.i!—; T >HZ 

HEN 980 

970 NÉXT:PRINT"Vous ne portez rien, .--fj 

":S0T0 680 

980 PR:INT"Vous porte: les cnoses su >£ï 

rvanies:" 

990 FOft ob.j=l TO no: IF abiob.ii=-l T >ml 

HEN FRINT obtiobj) 

1Ô00 NEXT:G0TG 680 >|g 

IMfl SAUVEGARDE ;>& 

1020 IF LEFTt{rep*,3)</"SAU ,, THEN 1 >EC 

110 

1030 PftINT:FfilNT u NoBi de I état du j Xfi 

eu a sauvegarder ... H iSTRINS$(5,8 

)::INPUT re P î:IF LEN(rep*)>ll THEN 

PRINT"Un peu plus court S.v.p !":60 

TO 1030 

1040 PRINT"Appuyer sur REC et PLAy >QW 

... i, :rep$=" f "+rep$+\JEU":PRINT"Pat 

lente: un instant ...":SPEED WRITE 

1 : DPENÛUT rep* 



U30 PRINT"HPPuyer suc PLftY ...":re >{jS 

pJ= , - | "+recit".JtiJ ii :PRINT Li Fa[ientei 

un instant ...":ÛPENIN repï 

1140 INPUT #9.1jd:RE3TÛRE 1190 m 

1150 FOR L=l TÛ 24:READ oD,i:INFiJT S -TE 

9»oa*i:ab.j) : INPUT #9,ob.]JïoD.]/: INPUT 

*9.ob(obji:NEn 
31ù0 FGF: i=l TO 3:READ ii.dir: IHPUT ;ËF 

Itv.sordi.dirKNtsT 
117© FOR dra=l TO ndilNPUT Bv.ariDr Aji 

ahNEtï 

1180 aOSEIN:F'ft!NT : 'Chargeme!iï termi ,'BR 
ne.":GQTÛ 6â0 

1190 DATA 1,3.4.6.8.10.13.17.13.21. >ÏS 
22, 23. 25, 26, 27.29. 33,3?, 4<j. 41. 42.45 
,46,51,14,2,21.4.23.4 
1200 IF LEFTî(reP$,3r-:>"VER" THEN 1 .€!■ 
230 

1210 PRINT'' Je comprends les verbes ;LL 
suivants: ":F'RINT 

1220 RE5T0RE 240:FOR i=l TO nv:READ /ZK 
motSîPRINT mot*,:t€ïT:PRINT:GOTO 6 
80 

1230 IF LEFTÎÏrepï,3K> i, INS" THEN 1 /EK 
250 

1240 m. 2.20;GQTO 560 ,PU 

1250 IF LEFTÎirepï.Si^/'FIN" THEN 1 >B 
280 

1260 HQÛE 1:PRINT"L auteur vous sou m 
haite plus de réussite la prochaine 
+Dis ! u :PRINT:FFiINTiPRINT:E® 
1270 ENTREES >VC 

1280 lon=LENlreftï:FOR esp=l TO Ion /ES 
;cD$=MIDÏ(rept,esp,i):IF coSO" " T 
HENhEXT 

1290 rve$=LEFT$irep$,4):le=lon-esp: m, 
IF le<0 THEN 1310 

1300 mot$=RISHT$û-epî,le):robï=LEFT >H 
ïtisot*,4) 

1310 FOR ver=l TQ nv:IF rve*=ver*tv >QG 
er) THEN 1330 



1326 t4XT;PRINT"Je ne comprends pas > 

le verbe.":GÛTQ 680 
1330 FOR o=l Tû no: IF robS=ob3*(o) > 
THEN 1350 
13*8 NEXT:PfilNT"Je ne comprends pas > 

l'objet !":G0T0 680 
1350 IF 0=47 AND l]o=22 THEN o=48 > 
1360 IF o=26 AND LEN(fnot$)<7 AND lj >l 
o=22 THEN o=49 

1370 IF 0=46 AND Ijo=22 THEN o=50 > 
1386 IF 0=11 AND Uo=13 THEN PRINT" > 
Il y a deu* lits.aettez un S ! " : SOT 

m 

1390 IF o=31 AND ljo=5 THEN PRINT"! > 

1 n'y a qu'un lit, ne mettez pas de 
S "':GOTO m 

1406 IF o=l AND ljo=16 THEN o=3B > 
1410 IF o=15 AND ljo=S THEN o=19 > 
1420 IF o=15 AND ljo=14 TH£N 0=33 > 
1430 IF 0=15 AND ljo=23 THEN 0=51 ) 
144Ô IF 0=5 AND ljo=7 THEN o=16 > 

1450 IF o=5 AND Ijo=13 THEN o=30 
1460 ON ver SOTO 1750,2036,2400,244 > 
0,2700, 3000, 3070, 3180,3230,3320, 336 
0,3450,3520,3600 

1470 HQRT > 

1480 MODE 1: BORDER 5:FQR cod=l TO L > 
ENlnorS) 

1490 car=ASClMDt(mor*,CQû.iJ> 
1500 IF car>64 AND caK91 THEN IF c ) 
ar<78 THEN car=car+13 EL3E car=car- 
13 

1510 IF car/'9b AND car,123 THEN IF > 
car<110 THEN car=car+13 ELSE car=ca 
r-13 

1520 RflINT CHM(car);:NEXT > 

1530 PRINTîPRINr'Tnste tin '" > 

1540 ON so GOSUE 3690,3710,3730.375 > 
6:F1R pau=l TO 10606:NEXT 
1550 MODE 0:PEN 3:L0CATE 6,12:PRINT > 
"VOUS ETE3":L0CATE 8, 14:PRINT"H0RT 
'":PEN 1 

1560 MQVE 80, 80: DRAW 126, 170,11:DRA > 
w 60,30Ô:DRAW 200,256:DRAW 350,-350: 
DRAW 400,260:DRA« 550.3S0:DRAW 480, 
180:DRAW 52ô, %\ DRAW 360,150:DRAW 2 
ay,80:DRflW 206,160:DRAW 80,80 
1570 RESTQRE 1580:FOR œus=l TO 27:R > 
EAD h,d:SQUND 7,1.5*h,1.5*d:NEXT 
1580 DATA 239,25.190,12,239,12,319. ) 
25,319,25,239,25,190,12,239,12,319, 
25, 159,25, 179, 12, 190, 12,213, 12,239, 
12,253,12,239,12,253,12,239,12,213, 
12,239,12,253,12,284.12,319,12,358, 
12,379,12,426,12.478,50 
1590 FOR pau=l Tû 5000: NEXT > 

16«0 MODE 1: PRINT "Votre aventure se - : 
termine mal, a vous de recommencer. 
": PRINT 



1610 INPUT "Voulez-vous essayer enc >! 

ore une fois ";rep$ 

1620 IF UPPER*(LEFT$(rep$,l))="Q a T >i 

KEN INK 2,20:RUN ELSE 1260 

1630 'REUSSITE Y 

1640 MODE 1: BORDER 10:FRINT"Vous se > 

ntez votre epieu s'enfoncer dans le 

coeur de votre ancêtre, celui-ci a 
maintenant trouve le repos etern 
el gracea vous !" 

1650 PRINT: PRINT "Félicitât ion !" > 
1660 FOR pau=l TD 1006&:NEXT > 

1670 HODE «iLOCftTE 7,12:PEN 3:PR1NT > 
"B";:PEN 7:PRINT"R";:PEN 8:PRINT"A" 
;:PEN 9:PRINT"V";:PEN lhPRINT'Q "; 
:PEN 13:PRINT"! , ':FEN 1 
1680 MOVE 100,150:DRAW 100,280. 10:D / 
RAW 50ê,2S0:DRAW 500,156:DRAW 100,1 
50:MOVE 96,148:DRAW 96,282, 12:DRAH 
504,282:DfifiW 504,148:DRAW 96,148 
1690 FOR a=l TO 2:REST0RE 1700:FOR > 
■US»! TO 19:READ h,d:S0DND 7,h,d:NE 
XTifiEAD h,d:5QUND 7,h.a*d:NEXT 
1700 DATA 358,12,284,12,284,12,179, > 
12,239,25,379.12,319,12,319,12,253, 
12,478,25,379, 12,319, 12,319, 12,190, 
12.239.25,358,12,284,12,284,12,179, 
12,358,25 

1710 FOR pau=l TO 5000: NEXT > 

1720 MODE l:PRINT"Vou5 avez résolu > 
1 épreuve qui vous était impose 
e et vous pouvez maintenant vous la 
ncer dans une autre aventure." 
1730 PRINT:PRINT:PRINT:FRINT:PRINT: > 
END 

1740 ANALYSE > 

1750 IF ob(o!OUo AND obloJG-1 TH > 
EN PRINT 11 II n'y a rien de la sorte 
ici !":60T0 660 

1760 IF o=3 AND NOT dri3) THEN morî > 
="tr mbzovr ibh-f rtbetr ninag zrzr 
qr cbnibve y bofreire ! ir :GOTÛ 1 
480 

1770 IF q=3 ANS dr(3) THEN PRÎNPVo > 
us remarquez seulement son corps 

répugnant ■ ll :60TO 680 
1780 IF o=4 THEN PRINT"Ce cadavre a ï 

un teint livide, mais il estmiracul 
eusement Dien conserve !":6QT0 686 
1790 IF 0=6 AND NOT dr(l! THEN PRIN '? 
T" Il y a ecrit:un homme a tue le ch 
et dune secte pour établir son 

propre pouvoir, en guise de con 
damnation il a ete emmure vivant 
pour l'éternité dans la cave de ce 
tte maison. ":SQTÛ 660 
1800 IF o=6 AND drtl) THEN PRINT'le ) 
s déchirures rendent illisibles les 
inscriptions.":GOTO 680 



1810 IF o=10 THEN FRINT"Sur un parc >AY 

hemin est écrit: celui qui ôelivr 

sra l'homme emmure de sa m 

alediction sera glorifie a jamais ! 

":GOTO 680 

1820 IF o=12 THEN PRlNFLes explosi >PW 

fs que vous apercevez sous lelit ri 

squent d'exploser."! GOTO 680 

1830 IF o=15 AND NOT drl4) AND ob(2 >UV 

5)<>-l THEN PRINT"EUe est fermée a 

cle.":GOTD 680 

1840 IF o=16 THEN PRINT u Ce tableau >LP 
est accroche curieusement !":GOTD 6 
80 

1B50 IF o=lB AND dr(5)=0 THEN PRINT >W 
"Il est plutôt effraye par votre 

irruption !";BOTO 660 
1860 IF o=18 AND dri5)=-I THEN PRIN ;>EE 
T"Ce nain ne possède- rien d'interes 
sant !":GOTO 68G 

167y IF 0=1B AND dri5)=l THEN PRINT >QB 
"Tel qu'il est, il ne pourra pas vou 
s nuire !":6GTQ 680 
1880 IF o=26 AND NOT dr(6i THEN PRI W 
NT "Vous voyez un cadenas fermant le 

coffre. u :ob(23)=9:G0T0 680 
1890 IF o=22 THEN PRINT"EIles daten m 
t du début du siècle !":G0T0 6B0 
19W IF o=24 THEN PRIN7"I1 Posséda Xi 
quelques tiroirs. ":ob(26)=10:GOTO 6 
80 

1916 IF o=27 AND NOT dr(Bi THEN PRI >EJ 
NT"La tiole contient un liquide pou 
rpre.":GÛTO 686 

1920 IF o=30 AND (ob(29)=13 QR obt2 >HA 
9)=0) THEN PRINT"Un passe-partout e 
st pose dessus. ":ob(29)=13:G0T0 680 

1930 IF o=32 THEN fflor$="Ra ertneqna >FG 
g qr cyhf cerf y'nezher.tba unyyro 
neqr ibhf qenapur yn grgr !":GQTO 1 
486 

1940 IF o=34 THEN PRINT "Que voulez- /MX 
vous y voir ?":G0TO 680 
1950 ÏF o=37 AND dr(91 THEN PRINTT >TV 
a gourde est remplie d'eau claire." 
:GOTO 680 

i960 IF d=39 THEN PRINT "On peut y e Hjfl 
ntrer facilement. ":60T0 680 
1970 IF 0=43 AND NOT driiOi THEN PR >LV 
INT"II y a une corde accrochée a la 
manivelle du Puits. i ':ob(45 
i=20:SQTO 660 

1986 IF o=43 AND dr(10! THEN so=4:m }M 
or$="Ra ibhf crapunag nh qrffhf qr 
yn znetryyr.ibhf tyvffrm rg 
gbzorm nh sbaq gh chvgf : " : GOTÛ 148 

1990 IF o=44 THEN PRINT"I1 n'a pas >UP 
29 




l 'air très solide. ,: :bCïJ gE:6 
W$ IF o=49 THEN PRINTC est un pë > 
tit chemin Pierreux. "iGÛIO 686 
26i6 IF o=52 THEN PRINÏ"Le lierre c > 
auvre le tacade. ^tSOTQ Sb6 
2626 rftINT"vaus ne voyez rien ae sp - 
ecial.^GÛTÛ 680 

2036 IF QtnoKHJQ THEN IF ob;o>=-l ? 
THEN FRINT"Vous possédez de.ja cela 
:":SCTO 666 ELBE PRINT"ii rvv a n 
en de tel ici l'iBCTO oôê 
2040 ' ENCOMBREMENT > 

2050 IF Peioi=0 THEN 2093 
2066 nbr=peio;:FOR 1=1 TO na 
2076 IF abui=4 THEN ndr=nc.r+peu; ,< 

2Ô6t> NEXT:ÎF nbr>35 THEN PRINTIWG > 
ssiûle.vous êtes déjà assez cnarqe 
:":GOTQ 680 

ffî& IF o=3 AND NûT dr(3> THEN mor$ > 
="Ibhf zûheerm rtbett- pne yr mûzovr 
a nccerpvr ienvzraq cnt ■ ll , , b 
. OTO 1480 
2168 IF o=3 AND drl3; THEN PRINT"Ûu > 
e voulez-vous taire d'un cadavre ?" 
:GÛTÛ 686 

2U6 IF o=4 THEN PRI NT "Que voulez-v .■■ 
ous en taire ?!":GGTD 680 
2120 IF o=6 AND NOT drUi THEN PRIN > 
T"l'ou5 déchirez la tapisserie en sa 
niant la décrocher du mur. J ':or(l) = ' 
-i:obî(6i="?ine tapisserie déchirée" 
:GOTÛ 680 

2130 IF o=à AND dr(I) THEN PRINT"vo > 
us voulez la déchirer davantage <": 
60TÛ 680 

2140 IF o=8 THEN PRINT"D accord. ":o > 
b(8)=-l:G0T0 686 

2150 IF o=9 THEN PRINrVous ne pouy > 
ez les prendre tous et ils ne sont 
guère intéressants !":GOTO 686 
2160 IF o=10 THEN FRINT"D'accord. ": > 
30 



obU6i=-i:G0T0 683 
2170 IF o=12 THEN so=3:mor$=' l ïrt ru 
cybfvst Dag rktvbfc ybe*#)r ibnt y 
rt nirs gbhpur ! I! : GOTO 1480 
2186 IF o=13 THEN PRlNT^Daccord. 11 : 
Obil3j=-1:GÛTO 660 

2196 IF o=16 THEN so=2:morî="f:a qrr- . 
ebpunaq vr qncvrnh.har qenccr + 
'bhier fbht ibt cvrqt rg ibht snvqr 
t har pungr qr 15 zrqert :":GÛTO 
1480 

lim IF o=17 THEN FftïWTS accord. ;i : 
ob(17J=-l:ah$(i7f="un jeu d'échecs" 
;GOTO 680 

22Î0 IF o=18 THEN PRINT"I1 est peti , 
t. mais quand même i-'rûûTû 686 
2220 IF o=21 THEN PRINT'D 'accord. B ! ) 
ob(2î.'=-l:GÛT0 630 

2230 IF o=22 THEN PRINT"D accord.": / 
obI221=-l:G0T0 686 

2240 IF o=23 AND NÛT dr!6> THEN PR1 ) 
M'' " Impossible. il terme ie coffre.": 
GOTO 680 

225Ô IF o=23 AND dn'6) THEN PRINT"D ; 
'accord. ":obi23t=-i:G0T0 680 
2260 IF 0=25 THEN PRINTC accord.": j 
ob!25)=-l:G0T0 680 

2276 IF o=26 THEN PRINT"ImPossiDle. ;■ 
ils sont fixes au secret 

aire i J :S0T0 680 

2280 IF o=27 AND NOT dri8i THEN PRI ) 
NT"En prenant la fiole, vous ne pouv 
ez résister a boire son conten 

u et vous vous sentez alors flot 
ter dans [espace !":ljo=I 

NTiRND*23!*-l:obi27i=-l:ob*i27)="une 
■fiole vide !i 

2290 IF o=27 AND NOT dr(S; THEN dri ? 
8i=-l:G0SUB 3700;GÛTO 680 
2300 IF o=27 AND dr(8ï THEN PRINT"D > 
accord. ":ob(27i=-l:GÛT0 680 
2310 IF o=29 THEN FfiINT"D'accord. ": > 



ob(29)=-i:G0Tû 680 

2320 IF o=30 THEN FRlNPGue vouiez- ; 
vous en taire ? ! " : 60TQ ôS6 
233'î IF o=32 THEN morï='Ra ceranag , 
y'nezner.fba unyyroneqr gbzorrg ibh 
t Pbhcr ra qrhk !":GOTO 14S0 
2346 IF o=34 THEN PRI NT "Vous piaisa ;■ 
ntez. l'espère r:GOTO 666 
2356 IF 0=37 OR o=46 OR o=41 OR o=4 t 
2 THEN PRINT"D'acccrd. ! ':obio)=-l:GO 
TO 680 

2360 IF o=45 AND NOT dr(16j THEN Pfi ; 
lNT"lmpassiDle,ia corde est attache 
e. ":GOTÛ 686 

2376 IF o=45 AND dr-iî&i THEN PPINT" t 
D'accord. ":ohl45!=-l:80T0 686 
23B0 IF o=5 QR o=7 OR o=Ii GR o=l4 ; 
OR o=26 OR o=24 OR 8=31 OR o=44 ïr£ 
N PPJNrVous n'êtes cas si -fort I e ! 
GOTÛ 686 

2376 PRÏNFRetïecfussez a ce que vo .; 
us dites î B :60.Ta 686 
2400 IF obioi.-^'-l THEN PRINT"Vous n .; 
e possédez encore rien de tel !":3Û 
TO 686 

2416 IF o=I7 THEN ob*il7i="un jeu d :■ 
échecs sur le soi" 
2420 IF o=21 THEN dr!14)=0 
2430 t4io)=no:F*RIM" n D'accord. n 



bQT j 



2446 IF obio;Oiio AND obiaiO-l Th >MT 
EN PRINT"I1 n y a rien de tel ici. J 
:60TG 680 

2450 IF o=7 THEN F'RINFD accoro.'^B M. 
OTO 680 

2466 IF 0=14 AND NOT drï2) THEN PRI ;SE 
NT"D' accord. ":dri2i=-kob (13^:605 
UB 3760:GOTÛ 6S6 

2470 IF o=14 AND dK2! THEN F'RINT'l >SÎ 
'armoire est déjà ouverte l'iGOTO 6 
80 

2480 IF o=15 THEN FfiINT D EIle est de /Kt 
ja ouverte !":GOTO 686 
2496 IF o=19 THEN PRINT"Elle est de M 
ja ouverte !°:GOTÛ û30 
2566 IF o=20 AND dr(12) THEN PRINT" }$è 
Le coffre est déjà ouvert '":SOT0 6 
33 

2510 IF o=20 AND NOT drii21 AND dri >PE 
6)=0 THEN PRINT"IflP06sible,il est f 
erme par quelque chose. ":GÛTÛ 6 
80 

2520 IF o=20 AND NOT drU2i THEN PR >JM 
INT"D'accard.":drU2)=-l:obi2l!=9:o 
b!22!=9:G0SUB 3760:GOTO 680 
2530 IF o=23 AND dri6) THEN PRINT È 1 >EA 
e cadenas est déjà ouvert !":GOTO 6 
80 
2540 IF o=23 AND NOT dr(6i AND ob(2 >KA 



9)=-l THEN PRINT" 
l:ob$(23)= 



:ord.":drl6)=- 
ouvert":SQTû 



2550 IF o=23 AND MOT dr'6i THEN PRI >SR 

NFfivec quoi ?!":GÛTQ 680 

2566 IF o=24 THEN PRINFD'accord.": >NZ 

GOTO 6m 

2570 IF o=26 m dr(7> THEN PRINT"I >M 

ls sont déjà ouverts (":GOT0 688 

25K IF o=26 AND NÛT dr(7) THEN PRI >CH 

NT"D accord. ":dr!7)=-l:Db<25)=ie:GG 

TO 680 

2590 IF o=27 THEN FRINT"D 'accord. ": >NF 

60T0 m 

2600 IF o=33 AND drUÎ THEN PRINT"E HM 

lie est déjà ouverte !":GDTQ 680 

2610 IF 0=33 AND NOT dr(4) AND ob(2 >VH 

5)=-l THEN PfiINT u D'accord.":dri4l=- 

l:obti33)= J, ufie porte ouverte au sud 

":sar(14,2)=4:G0SUE 3760:GGTD 680 

2628 IF 0=33 AND NOT dr<4) THEN PRI >SN 

NT'fivec quoi ?!":50TQ 680 

2630 IF o=37 THEN PRINFD 'accord. ": Xffl 

GOTO 680 

2646 IF o=46 AND dril3) THEN PRINT" ,'FU 

La grille est déjà ouverte !":GOTO 

680 

265Ô IF o=46 AND NOT drU3i THEN PR M 

INT"D'accQrd.":dr(13)=-l:ob$(4à}= Li l 

a grille d'entrée ouverte" :sor (21, 4 

)=22:S0TO 660 

2660 EF o=50 THEN PRINT"La grille e )TL 

St déjà ouverte !":GOTO 680 

2670 IF o=51 AND dr(li) THEN PRINT" >XG 

Elle est déjà ouverte :":SQTÛ 63$ 

2680 IF o=51 AND NOT drtltl THEN PR >ZV 

INT"D'accord.":drUi:'=-l:ob$i5n="l 

a porte d'entrée ouverte":sor(23,4; 

=S:EQSuB 3760:GÛTÛ 680 

2690 PRINT" Je ne comprends pas ce n Ai 

ue tu veu« Oire.":GQT0 680 

27ee IF obloiOUo AND ootolO-l TH m 

ENPRINT"I1 n'y a rien de tel ici." 

:G0TO 680 

27ie IF □=? THEN PRM'La cuisinier /ED 

e ne fonctionne plus depuis bien la 

nqteaips de.ja i":GOTÛ 680 

272e IF o=8 AND ob(8)=ljo THEN PRIN m 

F'Vous ne possédez pas d'epieu.":60 

TO 680 

2730 IF o=8 AND ob(4)=0 AND NOT dr( ?JN 

3) AND l.io=l THEN PRINT^otre epieu 

transperce le zombie qui meurt 
sur le coup,":ob*(3i=''un zombie mor 
t":dr(3)=-l:G0T0 680 
2740 IF d=8 AND ob(4)=l AND l.io=l T >MK 

HEN GOTO 1640 

2750 IF o=ll THEN FfiINT"Ce n'est pa >W 

s le moment de dormir l u :6QT0 680 



2760 IF o=12 THEN PRINT 11 Vous ne pos 
sedez pas d'explosifs.":60T0 680 
2770 IF o=13 AND ob(13)=ljo THEN PR 
lNT"vbu5 n'avez pas de masse. ":60T0 

680 

2730 IF o=13 AND UûOl THEN 2980 
2790 IF o=13 AND ob(4)=0 AND dr(3) 
THEN PRINTTe mur ne résiste guère 
sous les assautsde votre masse et v 
dus découvrez un homme emmure d 
epuis longtemps qui n'est autre que 

votre ancêtre :":ob$(l)="un tas de 

pierre":obj*U)= ll TAS" 
2800 IF o=13 AND ob(4!=0 AND dr(3! 
THEN ob (4) =1:605116 3740:S0T0 680 
2810 IF o=13 AND NOT dri3) THEN mor 
î-'ïr mbzovr ibh-f ghr fnhintrzraq r 
a iblnagyr zhe f rssbaqere fbhf ib-i 

Pbhcf !":60T0 1480 
2820 IF o=17 THEN PRINT'Ce n'est pa 
s le moment de jouer aux échecs 

'"îGOTO 680 
2630 IF o=21 AND ob(2ii=ljo THEN PR 
INT"Vous ne possède: pas de casque. 
":GOTO 680 

2840 IF o=21 AND NOT dr(14) THEN PR 
INT"Votre tête est désormais bien p 
rotegee par ce casque. ":dr(14)=-l; 
SQTQ 680 

2850 IF o=2i AND dr(14l THEN PRINT" 
Le casque est déjà sur votre tête ! 
":GQTG 680 

2860 IF o=27 AND ob(27)=ljo THEN PR 
1NT"vou5 n avez cas de fiole. ":GOTO 



2870 IF o=28 THES FR!NT"Vgus n'avez >NF 
pas de bois !":GQTO 680 
2B60 IF o=31 THEN FRW'IIs sont *r >8fi 
op petits pour vous !";6ÛTQ 680 
2B9e IF o=35 THEN PRINT"Ii n'y a pa /CE 
s d'eau !":GOTÛ 680 

2900 IF o=40 AND abi40i=Uo THEN PR >YR 
INT'Vous ne possédez pas de secateu 
r.":GOT0 680 

2910 IF 0=40 AND NOT àriW) AND Ijo >DV 
=20 THEN PRINT"Le sécateur coupe -fa 
cilement la corde, ":dr(iO)=-i:ob$(4 
'5)="une corde detachee":60T0 680 
2920 IF q=41 AND oh(41)=Ijo THEN PR >KT 
INT"Vous n'avez pas de râteau :":GQ 
TO 680 

2930 IF 0=42 AND obi42)=ïja THEN PR ,-ST 
I NT "Vous n'avez pas de pelle, ";BÛTO 



2960 IF o=45 AND dr(5)=-l AND Uo=6 >9U 
THEN PRINT"Vous attachez rapidemen 
t le nain.":dr(5)=l:obï(18)="un nai 
n ligote":ob(45)=0:GÛTÛ 680 
2970 IF o=45 AND dr(5S=0 AND ljo=B >6K 
THEN morï="Iblnaq dhr ibhf ibhyrm y 
r yvtbgre,yr anva rasbapr fba cb 
vtaneq qnaf ibger synap !":GQTO 
1480 

29Bê IF o=8 OR 0=13 OR o=24 OR o=27 >XX 
OR o=40 OR o=41 OR 0=42 DR o=45 TH 
EN PRINT"Pour quoi faire ?!":S0TO 6 
80 

2990 PRINF'Je ne comprends pas ce q ,'XM 
ue tu veux dire,":60TG 680 
3000 IF oblolOljo AND ob(o)<>-l TH >XG 
EN PRINT"I1 n'y a rien de la sorte 
ici.":GÛT0 689 

3010 IF o=l AND ob!13K>-i AND obl4 )«1H 
i=0 THEN PRINT"Avec quoi ? ! = : BDTO 6 
80 

3020 IF d=1 AND dr(3) AND ob(4i=Ô T >RH 
HEN PRINT"Le mur tombe rapidement s 
ous les chocs de votre Basse et vo 
us découvrez un homme emmure de 
puis longtemps qui n'est autre que 
votre ancêtre !";obî(l)="un tas de 
pierre":obj$tl)="TA5" 
3030 IF o=l AND dr(3i AND ob(4)=0 T >JZ 
HEN ob(4!=l:G0BUB 3740:G0T0 680 
3040 IF o=l AND NOT dr!3) AND ob\4i >JG 
=0 THEN mor$="Yr mbzovr ibhf ghr ni 
rp fnhintrevr ra iblnag yr zhe qr 
gehvg cne yrf pbncf qr znf+r l":GQ 
TO 1480 

3650 IF o=38 THEN PRINTTe mur est ;Fï 
trop solide pour que vous puissi 
ez le détruire !":GOTÛ 6Sy 
3060 PRINT"Je ne comprends pas ce q >XA 
ue tu veux dire.":G0T0 690 
3070 IF obloiOljo AND ob'.oXKl TH >N0 
EN PRINT"I1 n'y a rien de tel ici i 
":GOTO 680 

3eB0 IF o=14 OR o=2e OR o=26 THEN P >EB 
RINT"Que voulez-vous donc mettre de 
dans ?":G0TO 680 

3090 IF o=27 AND ob(27i=ijo THEN FH >GU 
INT'"Jous n avez pas de fiole. ":60TÛ 
680 

ïiœ IF o=27 AND NOT dr<8) THEN PRI 
NT"EUe est déjà pleine "':G0TO 680 



2940 IF o=44 THEN PRlNT"Vous avez a 
utre chose a faire que de rewer 
sur un banc !":SOTG 680 
2950 IF o=45 AND ob!45)=ljo THEN PR 
INT"Vous n'avez pas de corde !":GQT 



■ZN 



311ê IF o=27 AND driS) THEN rfiINT'fl >CV 
vec quoi ?!";60T0 680 
3120 IF o=35 THEN PRINT"I1 n'y a pa >ÛF 
s d'eau pour la remplir. ":GQTO 686 
3130 IF o=37 AND ob\37)=Ijo THEN PR >VB 
INT"vous ne possédez pas de gourde 

31 



(":GOTQ 6B6 

3140 IF o=37 AND dr(9) ThEN PRINT'l >EC 

a gourde est déjà remplie l":G0TO 6 

m 

315& IF o=37 AND NOT dr<9) AND lja= >BQ 
17 THEN PRINT"Elle est maintenant p 
leine d'eau.":dr<9)=-l:G0TG 680 

3168 IF o=37 AND NOT dr(9) THEN PRI >G¥ 

NT "Avec quoi ?!":60T0 6B6 

3176 PRINT'Je ne comprends pas ce g >XC 

ue tu veux dire.":GOTÛ 686 

3160 IF ob(o)0-l THEN PRINT'Vous n ,>BC 
avez rien de la sorte '"iGQTO 686 

3198 IF o=27 THEN PRINT "U fiole es >CÏ 

t vide !":GQTO 686 

3206 IF o=37 AND NOT dr(9> THEN PRI >WU 

NT"La gourde est vide :":GOTO 666 

3218 IF o=37 AND dr<9) THEN mor*="I >PH 

bht qebhirm dhr y'rnh rfg obaar.znv 

f ibhf rgrf cevf fbhqnva cne qrf 
pbaihyfvbaf ivbvragrf !":G 

QTO 14B8 

3228 PRINT"Je ne comprends pas ce q >DE 

ue tu veux dire !":G£ÏÏQ 660 

3236 IF ofetolOIio AND obioJO-1 TH >HQ 

EN PRINT"I1 n'y a rien de tel ici." 

ïGQTO 688 

3249 IF o=3 AND dr(3) THEN PRINT"U ,*KE 
est de.ja nort ! ":SDTO 68t> 

3258 IF o=3 AND NOT dr(3> AND ob(8i ?M 

=-i THEN PFUNTTe zombie meurt, tran 

sperce par votre epieu.":dn.3;=- 

l:obt(3}="un zombie fflort":GQTÛ 686 

3266 IF o=3 AND NOT dr!3) THEN PRIN ;FH 

T"Avec quoi ?! ":BOTO 688 

3270 IF o=4 AND ob<B)=-l THEN SOTO >DK 

1640 

32B6 IF o=4 THEN PRINT"Avec quoi ?! ,>QJ 

" : GOTO 686 

3298 IF o=18 AND dr(5)=0 THEN PRINT ) 

"Avec quoi ?!":ÛOTÛ 666 

3306 IF o=lB THEN PRI NT "Pourquoi vo > 

ulez-vous le tuer ?":GOTÛ 666 



* 



3" 10 PRINT"Je ne comprends pas ce q ; 
ue tu veux dire l":GOTÛ 688 
3326 IF obioJOijo AND ob(oK>-l TH ; 
EN PRINTMI n y a rien de la sorte 
ici !":GÛTG 680 

3330 IF o=9 THEN PRINT"Vous ne lise ■ 
z rien d'intéressant, "îGOTQ 686 
3340 IF o=16 THEN PRINFSur un parc ? 
hemin.vous hsez:celui qui delivr 
era 1 homme emmure de sa m 
alediction sera glorifie a ,iamais ! 
32 



":GOTD 680 

3350 PRINT"Je ne comprends pas ce q >XC 
ue tu veux dire. ":GOTD 680 
3360 IF oblolOljo AND ob(oK>-l TH >NT 
EN PRINTMI n'y a rien de tel ici ! 
":GOTÛ 680 

3378 IF o=3 AND obl45!<>-l THEN PRI >GL 
NT"Avec guai ?!":GOTQ 680 
33B8 IF o=3 AND dr(3) THEN PRINT"Po >LG 
ur quoi faire ?!":6fJT0 688 
3390 IF o=3 AND MOT dr(3) THEN mor$ >WZ 
="ïr mbzovr rgnag ybva gr fr ynvffr 
e snver.vy ibhf neenpur yn grg 
r ! u :SOTO i486 

3468 IF o=4 THEN PRINT"Avec quoi ?! >ÛC 
":GOTO 6B6 

3410 IF o=18 AND obl45K>-l THEN PR >Hfi 
INT'Avec quoi ?i":GOTO 680 
3420 IF o=lB AND dr(5)=-l THEN PRIN >XR 
T"vous attachez facilement le nain. 
":dr(5)=l:ob*(18>="un nain ligote": 
ob(45)=0:5£3TO 668 

3438 IF 0=18 AND dr(5(=6 THEN mor$= /PIE 
"Y'r anva argnag cnf g nppbetf.vy ib 
hf genafcrepr qr fba cbvtaneq !" 
:GOTO 1480 

3446 PRINT" Je ne comprends pas ce q >DJ 
ue tu veux dire !":GQTO 686 
345fi If obiolOljo AND oa(oK>-l TH >W 
ENPRINT"I1 n'y a rien ne tel ici. 11 
:GOTO 6B8 

3460 IF o=45 AND ob(40K>-l THEN PS >HR 
INT'Avec quoi ?!":GDTû t>80 
3470 IF o=45 AND dfil«l THEN PRINT" >UA 
Pourquoi voulez-vous la couper en 
plusieurs morceaux ?":GQTO 680 



3486 IF 0=45 AND NÙT dr(16i THEN FR >U 

I NT "Apres l'avoir sectionnée, vous a 

vez a disposition une longue cor 

de. ":dr(10)=-l:ob$l45)="une corde d 

et3chee'':GDTQ 680 

3498 IF o=47 THEN PRINT"Avec quoi ? >RK 

'"iGOTO 666 

3588 IF o=48 THEN PRINT'Avec guoi ? >RC 

1 1! : BOTO 688 

3516 PRINT" Je ne comprends pas ce q >XA 

ue tu veux ûire,":GOTQ 68Ô 

3520 IF obtoiOljo AND obioKM TH ;>YT 

EN PRINT'l 1 n v a rien de la sorte 

ici ! " : GOTO 6B8 

3536 IF o=21 AND obi21)=ljo THEN PR >KL 

INT"Voii5 n avez pas de casque !":60 



3546 IF o=21 AND dr(14) THEN PRINT" 
Il est de.ja sur votre tête i,r :SûTO 



>n 



3556 IF o=21 AND NOT drii4i THEN PR ,-AE 
I NT 'Desarmai s, votre tête est bien p 



rotegee.":dr(14!=-l:G0T0 680 

3560 IF o=23 AND ob(23J=ljo THEN PR >KG 

INT'vous n'avez pas de cadenas. ":G0 

TO 688 

3576 IF 0=23 THEN PRI NT "Ou ca "'!":S >KQ 

□TO 680 

35B6 IF 0=32 THEN PRINT"L armire es >SM 

t tcop grande pour vous ' " ; GOTO 668 

3590 PRINT"Je ne comprends pas ce q ^XJ 

ue tu veux dire. ": GOTO 680 

3680 IF obiolOljo AND obiolO-i TH >XN 

EN PRINT'Il n'y a rien de la sorte 

ici. D :GOTO 688 

3610 IF o=3 AND dr(3) THEN PRINTvo >Jï 

us voulez assommer un mort ?":SOTO 

686 

3620 IF o=3 AND NOT dr(3l THEN raor* >JF 

="Yr sib;ovr a'n evra fragv.vy n ivg 

r snvg gr ibhf ghre ! N ;SQTO 1488 

3o38 IF o=4 THEN FRINT'Te n'est Pas >BN 

la peme.il est inoffen 

sif !":GOTO 688 ' 

3640 IF o=18 AND dr(5)=i THEN PRINT >CA 
"Pas be50in,il est ligote.":BQTO 6B 
â 

3656 IF o=18 AND dr(51=-l THEN PRIN >wf) 
T" Il est déjà assomme :":SQTO 68y 
3660 IF o=18 AND d>ÎSi=ê THEN PRINT >FA 
"D'accord. ":dr(5)=-l:obi(IB)="un na 
in assomme" : GOTO 680 
3676 PRINT" Je ne comprends pas ce o , : XH 
ue tu veux dire. ":GOTO 6B6 
3686 BRUITAGE M_ 

3696 ENT -1,18,-3, 1,14, 1,1, ù, -2. US >IE 
OUND 2,3â8,100,7,0,l:FOR z=l TO 256 
0:NEXT:ENV 1, 100,16, 20:ENT 1.50.16, 
26:S0UND 2, 106,450,4,1, 1:RETURN 
3706 FOR n=l TD ?;SOUND 2,339,58. n: >VC 
NEXT:FOR n=6 TQ 1 STEP -1:S0UND l.l 
39,50,n:NEXT;RETJRN 

371» SOUND 2.0, 100,7,6,0, liRETURN >ALi 
3726 FOR H TO 5:FQR n=406 TQ 150 ni 
STEP -15:S0UND 2,n,3,7:NEXT:NEXT:RE 
TURN 

3736 FOR a=l TO 26:S0UND 2.6.16.7,0 .-Hû 
.0,ENT(RND*16):NEXT:RETURN 
3746 FOR n=l TO 4:F0R i=? TO 1 STEP >CU 
-1:SÛUND 2,0,10, j,0,0,15:NEXT:NEXT 
:RETURN 

3750 ENV l,7,-2.B6:F0ft a=566 TO m >VL 
STEP -1: SOUND 2,a,2,5:NEXT:S0UND 2 
,0,6,0, 1,0, 16: RETUftN 
3760 ENT 1,8,-1,3,8,1,3:ENU 1,15,-i m 
,10;SOUND 2,0,56,15,1,1:RETURN 
3776 'GRAPHISME m 

37B6 RESTORE 3780:RETURN:DATA 43,16 >fiA 
0,146, 40,90,0, 72, P23S,-178, -40, 98,0 
,72,P-198,-72,19a,6,P-10fi,0,0,72,Pl 



84, 



»,-72,W,72,Pae,-72,â,72,f 1 - 

0,P-B4,6,84,0,P-B4,10.84,O,P-B4,6, 
P-B4,10,84,8,P-84,6,84,0,P-84. 
, 0,P-84, 6,34, 0,P-B4, 18, 64,8, P- 
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176,-118 

379« DATA 18, 22.108, 8*18, -22,-128,8 > 

,0,-8,120,0,8,8^-110,-10.0.-20,100 

3888 RESTORE 3BO8:RETURN:0ATA 36.2, > 
244, 474, 8.P-358, 38, «,24. 44, «,0,-24, 
-44,0, P2,2, 6, 20, 48, 8, 0,-20, -40,8, P4 

8,-68,18,30,168,0,-18.-30.-160,0,0, 
-le, iàâ, y, m, i«, Pô, -16, le, -3è,y, lé, F- 

160,-48.0,-30, 10,0,0, 30, PO. -30, 4. 10 



,£,2§,Pllé.M ( -3Ô,lMA3Ô.F0.-3ê 

,4,10,8,28 

3818 RESTORE 3818:RE7URN:DATA 36. Bit ,DZ 

,144, 48, 188, 0,72, PO, -72, 188, 8. F6Ô.0 

T 78,0.P48.-100,-40,i00,0,72,P-138,- 

92,0, 60,60, 0,O,-60,-60,0,P4, 4. 8,36, 

52,0,O,-3ù.-52,0,Pl6,30,20.8.P-28,2 

, 20, 8, P-36, 14, 8.6, 52, 8, 8, -6.-52,8, F 

6,2,8,2,P18,-2,0.2,P2O,-2,0,2,P10.- 

2,8,2 

3826 RESTORE 3328;RETUPN:fjATA 94.1':' ]>W 

8, 146.40,78, 12O,0,P-2O. 0,0, 92, P20, 8 

, 0,-1 12, 60, 28. 8. 92, P~4, 0,8, -94, PO. 3 

,4,2,F-ô0,50,60,28,P-68,-38.i8,4.O, 

ly.5e.16.P-56, -22,2,2, 0,4.-2.-2.*?.- 

4,P56.~48,20,È,0,92,P8.-92,40.-78.f 

-368.170.8.-32.P18.32.8.-6.P-2S.-48 

,34,54 

3830 DATA P-34.-68.38,ùO.F-28.-42.0 m 

.-66,P12<8ù.8.-64.Pi8,8e,8.-62.Piu, 

tS,0,-42,Fl8. 42,8, -24.F--5B. -182.74, 

l2&,P-74,-i32,78.132,F-64.-i8t.8,-6 

4,P14.B8,0.-û4.P10.G2.8.-o6.Fi2.86. 

Ô.-û4,Fi0,8O,0,-62,P14,B6,0.-62.P14 

,66,O,-40.Pl0.40,0.-24,P-84,-t4ù. 10 

8.170 

3840 DATA P-90,-170. 100. 170.F-Bo.-1 ,-JR 

46,0,-24,Pt6,52,0.-46,PlO.û4,8.-4û. 

F10. 64.0, -4c.Pi8.76.0.-4o.Fl^. 64,0. 

-46,P12,66,8,-44,P18,56,O.-42.Pi0.4 

2.0,-24,P-84,-14o.94,i64,F-90.-!o4. 

90. 158. P0. -80. 0.92 

3FJ50 RESTORE 3658:RE"IIjPN:DâTh lié, h ,-* 

O,146,40,118,0,52,P8,-52,7O.0.F288. 

-118,-48, 118,8, 52.P0, -52, ~7O.0,P-9S 

,-2,0,32,10.8,0,-18.78,0,8.10,10,0. 

8. -32. -98. 8, PO. 32, 4. 4. [0,0.-4.-4. F" ■ 

B,0,-4,4.10,0.4.-4,p-54,4.O.-i0,70, 

8,8. 10. p - 7 4. -34. 0.12. 78. 0.0. -12. -73 

.O.F'4. 10 

3860 DATA 0, -h, 70. 0.0, o,F-34, -12.-1 -Hï 



2,-74,P32,74,-16,-B4,P26,B4,-12,-84 

,P22,84,-B,-84,P18,B4,-4,-64,P22.84 

,4,-84,P6,B4,8,-B4,P2,84,12,-84,P-2 

,84,16,-B4,P-6,84,22,-74,P-158,-24. 

«,20,18,0,9,-10, 138,0, 0,1O,18, 0,y,- 

26, -158. «, PO. 20, 4, 4, 10, 0,-4, -4, P136 

,0,-4,4 

3870 DATA 10,0,4, -4, P-144, 4, 0,-10, 1 >CL 

30,0,0,10, P-134, -24, 0,-12, 10,0,0, 12 

,P8,-12, 4, 4, 0,B,PU4, 0,8,-12,18,8,8 

,12,P-10,-12,-4,4,0,8,P-74,0.Ô,-14, 

38,0,0, 14, P-34, -4,8.6, P-4, 0,0, -6, P8 

,0,O,6,6.-fa,8,6,P4,0,8,0,P-4,8,8,-6 

38B0 RESTORE 3880: RETURN: DATA 26. 10 >ZB 
8, 146, 48, 78,8,92, P8, -92,38, 8, P158,- 
78,-40,7B,0,92,P-38.-92,38,0,P-il6, 
-20, 0.100, 80. 0,0, -iOO, -80,0, PO, 10, B 
8.8,P-40,8,0,9O,P-18,-50,6,8,P-6,2, 
6,0,P8,-2,ù.O,P-6,2,6,O 
3890 RESTORE 3698:R£TURN:DATA 66.30 >RA 
, 146, 40.9B, 8, 72.P278, -178,-40,96, 8. 
72,P-23a,-72.23B,0,P-156,3O.O.4O,78 
, 0. 0,-40, -78, 0.P4, 4, 0,32, 70, 0,0,-32 
,-7O,O,P0, 16, 16,6. 10,-6, 10.0,20,4. i 
4,-4,P-4,-126,ô,6.-lO,30,ô.-6. 10.-3 
O.4O,O,0,6,-4O,0,P-1O,30. 40,0. 10,-3 
0.P-46.30 

3980 DATA 10,-30,P-c,30, i8.-30.P-t. >EC 
38, 10,-38, P-6, 30, 10,-30. P-6, 30.10, - 
30,P-6,30,lO,-3Ô,P-6,30,lO.-30,P-6, 
30,10,-30,P-6,3Ô,10,-30,P-46,28,4O, 
0,P-38,-4,4O,O,P-38,-4,40,0,P-40.-4 
,40,8,P-3B,-4,4O,Ô,P-38.-4,4O,0,P-4 
0,-4,40,0 

3910 RESTORE 3910: RETURN; DATA 74.10 .>KC 
B, 146, 60, 78,8, 92, P0, -92, 60. -20, 0,11 
2, PO, -92, 20,8, PO, 92, 8,-92, 88, 0,P0, 9 
2, 8,-92, 60,-78. P-220, 98, 20. -6,0.6, - 
20,6,PO,-10, 4, -2.0.4, P-4, 12,4,-2.8, 
-4.P-4.52, 20,-0,0.6, -20, 6. PO.-10, 4. 
-2. 0, 4, P-4, 12, 4, -2,0, -2. P5ù. -22, -20 
,6,0,20 

3920 DATA 20.-6,P-14,-12.0.4,P2,-6. m 
ij.4.F4.2.4.-2.0,û,-4,2.O,-e.F4,O,-i 
2.4. 0.2. 12, -4. P24, -14. 10.0,0,20.-10 
,y,PG0,-D0,-2O.O.O,û.2O,O,P-4,-o.0. 
■ -4,4,0, P-4. 18, 8,4. 4,0. PO. 46. -20. 0.0 
,6,20,0,P-4,-6,8,-4.4,0,P-4.1O,O,4. 



3950 RESTORE 3950: RETURN: DATA 61,80 > 

,146,48, 138, 8,32,P0, -32, 102, 8,Pli8, 

0,i8,0,P0,32,0,-32,40,-138,P~176,15 

4,0,-46,36,O,O,46,P-3e,O,O,4,llB,8, 

8,-4,-UB,8,P88,8,8,-46,36,8,8,46,P 

-76,-16,4Ô,O,P-4O,4,40,0,P-36,4,0,6 



.O,-6,-30,0,P-38, -28.0.6. 28,0 



A 



3930 RESTORE 3938:RETURN:DAÎA 38.2. 
244. 178. 8. 0, 72, PO, -72, 40, 72. F3B, 0.4 
ê.-72.O.72.PO.-72,62,0.P6O,0,56,0,P 
-110,20,10,-10.0, -30,-10. 10,0,40, 10 
,-lO.O.-10,22,O,P-22.-30,5O,O.0.30. 
-22.O 1 F22,0,O,1O.P-5O,O,5'1'. 0.-10. 10 
. -50. 0.P32. -28. 0.12. 6. 0.0. -I2.-6.0. 
P-4. 8 



3940 DATA 8.- 



',14,0.0,10 



8,-6,- 

3960 BATA P0, 18,8,6,28,0,0,-6,-28,0 >HW 

,PÔ,lO,0,6,2B,0,O,-6,-2B,0,P78,-20. 

0, 6, 28,0, 8,-6, -28, 8,P0, 18, 8,6, 28,0, 

8, -6, -28, 0,P0, 18,8,6,28,0,8,-6,-28. 

8 

3970 RESTORE 3978: RETURN: DATA 61,13 >RL 

2,316,8,-170,6, 18, 193,8,8,-18,0, Î70 

,P-286, -152, 0,20, 198, 0,0,-20,P-198. 

20,4, 10, 19O,0,4,-1«,P-194, 10,0, 18,1 

90,0,8, -18,P-190, 18,4, 10, 182,0,4,-1 

0,P-186,10,0,16,1B2,8,8,-16,P-182,1 

6, 4, 10, 174, 8,4, -10, P-17B, 10, 0,14, 17 

4,0,0,-14 

3980 DATA F-174, 14,2,6, 170,0, 2,-6, P >WG 

-172,6,8, 12, 178,0,0, -12, P-178, 12,2, 

6,166,8,2,-6,P-168,6,0,10,166,8,O,- 

18,P-166,18,2,6,162,8,2,-6,P-lé4,6, 

e,8,162,0,8,-6,P-162,8,4,6.F158.-6. 

-2,6 

3998 RESTORE 3990: RETURN: DATA 46,10 >HF 

8,146, 48, 58,0, 112, PO,-U2,198,Ô,P40 

,-53,-40,58.0, 112, P-15B, -112. 8,10,1 

18,0, 0,-18, P-108, 10.0, 78, P98, -78.0, 

7O.P-98,-60.2O,0,P-28,20.2O.O,P-2O. 

20,2O,0,P58,-40,2O,0.P-20,28,2O,0.P 

-20, 20, 20,8, P- 78, 18, 6,-8,8, -44. -ù.- 

8,0,60 

4000 DATA 58,0,0,-60,-6,3,0,44,6,8, >ïfl 

P-52,-52,46,0,P-4o,44,46,0,P-92,18. 

8,20,138,8,0,-28,-138,0 

4018 RESTORE 4818: RETURH: DATA 96.48 >ËH 

, 146, 68,113, 8, 52, PÔ, -52, 18, 0,F7O. 8. 

26,O.P66,Ô,26,O,P70,0,1Ô,0,P60,-11B 

,-o6, 113,0, 52, P-174, -56, 6. 14,53,8,6 

,-14, -70,8, 0,-36, 78,0,8, 36, F-60,-lo 

, 0,lô, 50,0, 8,-18, -50,0, P22, 4,6, 8,P- 

6,2, 6,8, P-32, -26, 0,-10,58, 8, 0,1O,P- 

156,44 

4020 DATA 68,8,18,-104,-138,8,52,10 >FN 

4,8,16,6B,8,0.-16,P-66,lS,64,0,P-i2 

0,-128,0,-3,134,0,8, 6,-134, 0,P2,6.Ô 

,-4,138.Ô.0,4,P-128,-lS,8.4,PlO.-4. 

0,4,P4,-4,0,4,P84,-4,8,4.P2.-4,0,4. 

P10,-4,6,4,PU8. 118, -10,-104, 130,8. 

-52, 104,-68,0.0, 16, 68, 0,0, -16. p-66, 

18,64,0 

4039 DATA F-78.-i36,0, S. 134,0,0.-8, ,'KC 
-134,0, P2, 14, 0,-4. 130. 8,0,4. P-120. - 
18,0,4.PlO.-4,O,4,P2,-4.O,4.PB4,-4, 
0.4,F4,-4,O,4.P1O.-4,O.4 

4040 RESTORE 404O:RETURN:DATA 37,2. ,>DA 

33 



I 



7.84, 158, 8, 8,1 12. P8, -112, 30, 46, P286. 

-48,-158, 8,6, 112, F0, -112, -36, 48, P-9 

B,72,e,-72.9B,0,0,72,P-98,-2.98.0,P 

-26, 6,8,-28, 20, 6, P-16, 12,12, '3, P-12, 

-2,12,6,0.-4,P-2.2.0.-2,P-6.-2,8.-2 

,P-86,-26,20,0,0,-6,-26,8,P0,i6,4,0 

,8,-4 

4658 DATA M,-1*,M»M ->RK 

4660 RESTORE 4866: RE TURN: DATA 49,8w >MQ 

, 146, 66. 98, 6, 72, -30, -32, P36, -46. 58. 

0,P120,6,28,6,P68,-9S,-60,9iM'72,P 

-lB8,0,36,-22,P-50,22,6,-2,20,0,4,2 

, P-56. 0,20, -6, 34,8,16, 8, P-=?â,&, 34. - 

14, 40,0,28, 14.P-18, -58,6,6. 136,6.0, 

-6,-136, 0.P4.6.4, -14. 10, -2y.2tf-,ê, PI 

4,0,32.(3 

m@ DATA P14.0,20,0. 10,28,4, 14. P-9 >VK 

6,-2B,lB,0,-6,-lÈ,-6,0,-6.l6,P46,6, 

16,6,-6,-16.-6,0,-6.16 

4i)80 RESTÛRE 4080:RETURN:DATA 77.13 >CN 

2,316,0,-170,8,16,196,8,8,-18,6,170 

,P-206,-152, 6,26, 86,8,4, 4.6, -4, 188. 

8,e,-20.F-19B,28,4,10,190,0,4.-10.P 

-194, 16,0, 18, 196, 8,0, -18.P-190, 18,4 

,10, 126,6, 2, -6, 4, 6, 56,6,4, -10, P-1B6 

, 10, 0,16, 182, 0,0, -16, P-182, 16,4, 18, 

174,0 

4096 DATA 4,-16,P-178. 10.8,14, 174,6 ,>AT 

, 6,-14, P-174, 14,2,6, Î76, 6, 2, -û,P-17 

2,6,0, 12, 178,6,0, -12, P-170. 12,2,6,9 

B, 0,0,-4,û.4, 62, 8,2, -6, P-168.6.6, 10 

, 166,6, 0,-10, P-166, 10, 2,6, 162,0, 2,- 

6,P-164.6.0,8,162,0,0.-B.P-162.8,4, 

6,P158,-6,-2,6,P-96,-S32,8.-8.P2.a, 

-2,-4 

4100 DATA P-68,72, 10,4,10.-2 >UC 

4110 RESTQRE 4!18:RETURN:DAÏA 53,20 m 

0.316,8, -72, 20, -26, 256. -72, P-196, 17 

^,H, -52, 196, -40, P-436, 0,36,-20.-10, 

-24,-38,4,-10,20,20,26, -3G,4,P0, -24 

, 18,0, P8, -58. 16,38, P30. -4,20, -34,F- 



10,58, 14,-58, P-10, 38. 16, 0,10,-4, 4, - 

6, 12, -10, -6, -4, 4, -6. -4, -4, 2. -4, P-22 

,32,8,-2 

4126 DATA -2,-6,10,-6,-4,-4,6.-6.-4 ïSÏ 

, -4,2,-4, P-24, 32, 8. -4, -2, -6,10, -4,- 

4, -8,6, -2, -4, -6, 4, -2. P-22, 26, 4.-4. - 

2,-4,10,-4.-4,-6,6,-4,-4,-4 

413é RESTORE 4130:RETURN:DATA 40.13 >Jv 

6, 146, 30, 98, 56, 0,38, -98, P-296, 118,1 

7B,6,F6, 52.6, -72,36,0,0,76,58,6,6,- 

78,38,0, 6,72,P2.-52,176,6,P-266,-16 

,58,6.P-5B,58,20,6,2,4,4,-4.32,6,Fi 

32, -3B, 0,8,-20,4, -4, 12, 6.-10,18, -2, 

6,18,-20,6,28.-4.0,14.4,-6,6,2,-6,- 

6,8,-12 

4140 DATA 12, 4,4,-2. -16, -d. 8,-12 >M 

4158 RESTORE 4156:RETURN:BATA 19,60 >FJ 

,14i,0, 178. PB0. -170,0, 178, PB.-178.0 

,170,P0,-144, 12,12,8, 132, P8, -132, 15 

8, 8,P6, 132,8,-132, 12, -12, P0,-26,0,l 

70, PS, -178,0. 178, PB0, -170, 8,178 

4160 RESTORE 4168:RETURN:DATH 81,40 >CG 

,316,-28. -52, 88,8, -20,52, P-26. -54,0 

, -18, PB, 18,0. -18, P84, -60, -16, 0,0, 20 

,18,6,8,-20, 10,46,6, 26,-18, -48.P-13 

, 0, 6,48, 20, 0.P-24, -62, 0,-8,18, 8,0, 8 

,P0,-6,2,8,P10,-36.48,170,P11B,-170 

,-40,170^120,-152.-58,0.0,48,58.0. 



4178 DATA 28.28. 


'.88.4,4,8.-80.-4.- 


4,P-76,20,20 l 28,58,8.-20,-20,F-38.4 


,0,12,-10.-12.48 


0,12, 12. -50. O.P- 28 


,-26,58,8,28,20. 


-56,-20,8, 10, P18,- 


18,0, 10.F32, 0,0, 


0.P4,10,0,38,P4.4. 


-20,-14, -4,0,24,24, 4, 8,P-24, -24,28, 


20,-58.8,-20.-28 


54.8,P-50,8,24.24,. 


0,-4,P-B,8 




4188 DATA 4,4,4, 


^-8,-44,8,18^4,- 


18,8,1B,P4,-18,8 


18 


4198 RESTORE 4198: RETUfiN: DATA 99,2, 


214, 22, 68, 34, -9B 


-56,8,P16,8,8,-20. 




P12,20,8,-20,P8. 104,2. 14,28, 12.-22. 
10,2.12,P100.8,18,-62,-38,0.32.-10, 
8, -46. -186, 8, P26. -2, 8. -38, PIS, 38, 8. 
-36. P222.8, 14,68, 24,28, -18,0,28.72. 
P68, 8, 18,-72,-18,0.24.-20. 14,-68.-1 
38,8 

4208 DATA Pô8, -2. 0,-16^18,16.0.-16 >PB 
,P-238,0, 40, 136.P-3B, -136,40, 136, PI 
14,-136, -46, 136.P42, -136.-48. 136. P- 
276,-18, 14, 8.P134, 8,30,8, 18, 1B.P-1B 
,-18,0,52,P106.-34.20,-18.44,8,p-44 
,8,0,52,P134,-52,42,8,P-276,20,8,32 
,P2,0.6, -32, 74,6,8, 32, P2, 6.8, -32,f- 
42,0,0,32 

'4210 DATA P6,-32. 0,32. P-3B. -28, 30.8 >KE 
,F l -30,6,30,e,p-38,16,30 T 0,P-38.16,3 
8,6,P10,-26,30,0,P-30,6,30.6.P-30.i 
0,30, 0.P-38, 10,38, 0.P-64, -24,8, 26, P 
18,-26, 8,26,F16, -26, 8.26. PIB, -26.0. 
2È,P10,-26,8,26 t Pi8, -26,8,26 
4220 REBTQRE 4226: RETURN: DATA 86.38 ,KZ 
, 316, -28, -72. 68. 6. -18, 72. P-28. -72, 6 
,-28,P8,28,0,-26,P344, 92,-22, -52, 26 
,-16,-28,-10,-22.-60,136,6.-50.132. 
P-26,-134,8,-18,P18,16,0,-18,P-4i6. 
126,18,6,P50,6,130,6,6.32,P7B.6.0.- 
32,108,6,Pù2.0,36,8,P-27û.-2.-12,-3 
8,-88.6 

4238 DATA -9Q,-8y,P3S,-LB,Sy,5a,56, AN 
6,-16, -5B,P2,0, 11,58, P12, 46, 12,36.8 
, 34, P76, -34, 46,-136,F-2, 0,-48, 136,0 
,34,P-74,-34,lB,-18,6,52,P-2.-5ô,0, 
50,P-4,-40.6,46,P-4,-36,6,36,P-4.-3 
2,0,32,P-4,-2B,14,-l6,P-i4,22.14,-l 
6.P-14,24,14,-14 1 p-14,24,14.-16,P-3 
,14,8,-2 

4248 DATA P58,-36,-34,6,0,32,P2.-32 >flJ 
, 6,32,P8,-2«, 0,28, P10.-2B, 8,28, P18, 
-28,0, 28, P-26, -28,38,6, P-30, 6. 30.8, 
P-36,18,30,6,P-30. 10,38,8 
4256 RESTORE 4250:RETIM:DATA 89,16 /X5 
6,146,20,76,P-18.-76,26,78,P114.-78 
, -26,73, P22, -78,-26, 7B.P-138, 92,0, - 
92,318,8,0,92,P-316,-ES,3B,0,P108,0 
,17B,0,P-278,-4,8,6,9B,0,0,-6,P-8B, 
6, 6,4, 78,0,0, -4, P-6B, 4,0,66,58,0.8, 
-66,P-56,0,0,6ê,54,0,0,-66,p-28,0,0 
,58,P0,-28 

4268 DATA 12,8,0,-10,P-8,6,4,6,6,-2 >JV 
, -4,8, P2, -2, F-32, -20,56,6, P-56, 16,5 
6,6,P-56,2,56,0,P-56,B,26,8,P12,0,1 
6,6,P-56,4 I 56,0,P-56,6,56,0,P-56,2, 
56,0,P-56,16,56,6,P82,-22,58,e,6,-6 
,-58,6,0,6,e,46,P58,-46,e,46,P-28.- 
46, 6,46^-26, -46, 0,46, 24, 0,6, -46, P4 
,0,6,46 

4276 DATA 22,0,0,-46,P-56,4,22 ( 8,P- >ZA 
22,28,22,8,P-22,4,22,0,P6,-24,1B,0, 
P-18,20,1B,0,P-1B,4,18,0 
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Extension 64 K 



Synthétiseur vocal 
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j «tension 256 H $11 i coi 
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r.:ll -15:1-654 ... 

synthétiseur vocal 

(avec logiciel en cassette] : 
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I pour CPC 464 664 



extension 256 K RAM 



Interface manette + 
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Interface manette 
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